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ABSTRACT 


Personnel and equipment casualties, caused by shipboard 
fires have adversely affected overall readiness of the U.S. 
Navy for centuries. Understanding the phenomena of fire in 
enclosed spaces, such as those found on surface ships and 
Submarines, will greatly enhance the Navy’s ability to combat 
or prevent them. This computer model was developed for use in 
conjunction with Fire-1, an experimental fire chamber test 
facility at the Naval Research Laboratory in Washington, D.C. 
It is a three-dimensional finite difference model which 
includes the phenomena of conduction, turbulence, global 
pressure correction, surface radiation and strong buoyancy 
flows. Given specific data on heat release, it predicts 
velocities, temperatures, pressures, densities and viscosities 
throughout its geometry. It has been reasonably validated by 
comparison with experiments in Fire-1. Advanced graphics 
techniques, such as color contouring and three-dimensional 
vector field plotting, have been applied to make output data 
more informative. This model, if easily modified to more 
specific geometries, may become a useful tool for naval 
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I. INTRODUCTION 


A. BACKGROUND 

Annually, the effects of fires on Naval forces are 
particularly devastating. Ships may be removed from service 
for repairs which incur costs that may run into the tens of 
millions of dollars. Personnel casualties, ship down time, 
equipment repair and replacement all result in a loss of 
overall readiness of our fleets. The prevention of shipboard 
fires is of the utmost importance to today’s Navy. The 
understanding of the phenomena of fire, especially in the 
enclosed spaces found aboard ship, is the first step toward 
its control and prevention. 

The study of fire propagation requires the combined 
knowledge of fluid dynamics, mass and heat transfer, and 
combustion. Research into the mechanics of fire and prediction 
of its behavior will aid engineers in reducing the probability 
of its ignition and propagation. 

There are a number of ways to conduct this research. The 
most obvious is experimental. But, fires aboard ships are very 
complex. Often they are in enclosed airtight spaces which 
allow pressures to build. These spaces may be full of 
electronic equipment, flammables or toxic substances. Their 


accessibility may be extremely limited, hampering efforts to 


combat fires. An experiment that can accurately account for 
all these complexities becomes very expensive. 

At the Naval Research Laboratory in Washington, D.C., the 
Navy has built Fire-1, a large pressure vessel designed to 
model fires aboard submarines, or closed compartments and 
tanks found on surface ships. It allows fires to be studied 
under the unique conditions experienced in shipboard fires. 

Another method for conducting fire research is the use of 
a computer model. As computers get faster and can allow for 
large amounts of data storage, researchers are able to 
thoroughly model fire phenomena and predict future behavior 
without the continuous expensive full scale testing of Fire-1. 
Fires may be modeled by the numerical solution of the 
governing equations. These models are then verified by the 
existing data from experiments. With an accurate computer 
model, several options are available. More complex geometries 
may be incorporated for specific areas of interest. Entire 
models of ships may someday be developed to show areas of 
susceptibility in design. Effects of firefighting methods may 
be accurately predicted. The savings in running computer codes 
versus full scale testing are considerable. 

Also, now that a high speed VAXSTATION 3100 SPX/RJ19 Model 
38 workstation may be dedicated to this particular simulation, 
computing costs may be minimized. The current code requires 
approximately 1.0 hours of VAXSTATION CPU per second of fire 


time. 


B. COMPUTER MODELING 

Field modeling uses difference forms of the conservation 
equations of mass, momentum, energy and species. These are 
used to calculate temperature, velocity, pressure, viscosity 
and density at specific points in the volume of interest. This 
volume, being the compartment studied, is broken down to 
finite volume elements. The conservation equations are solved 
at this level for discrete time steps from a known initial 
condition. Additional models of physical effects such as 
radiation, turbulence, and wall conduction are included to 
increase the simulation’s validity. This method requires large 
amounts of computer memory and high speed processors. 

Much research has been done previously and has provided 
the basis for this thesis. At the University of Notre Dame 
[Refs. 1 and 2] work has been conducted involving aircraft 
cabin fires using a two dimensional finite difference field 
model which predicts velocity, temperature and smoke 
concentration inside the passenger area of an aircraft. 
Nicolette et al. [Ref. 3] developed a two dimensional model of 
transient cooling by natural convection. It utilized a fully 
transient, semi-implicit upwind differencing scheme and global 
pressure correction that was verified experimentally. 

More recent [Refs. 4 through 12] studies have developed 
numerical solutions for three dimensional rectangular 
enclosures in which non-linear partial differential equations 


were solved by finite difference methods. Models for three 


dimensional cylindrical coordinate buoyant flows [Refs. 13 
through 19] have also been developed, and deal mainly with 
horizontal annuli with differential temperatures specified at 
inner and outer cylindrical walls. Smutek et al. [Ref. 18] 
studied buoyant flows in horizonal cylinders with 
differentially heated ends at low Rayleigh numbers (74 < Ra < 
18700). Yang et al. [Ref. 19] conducted a Similar study but 
with high Rayleigh numbers (104 € Ra 10’). 

Studies have also been done on methods for decoupling the 
pressure terms from the Navier-Stokes Equation. The stream 
function-vorticity formulation has been used [Refs. 13 through 
18] to calculate natural convection in various geometries. 
There are problems with this method such as instability at 
high Rayleigh numbers. Yang et al. [Ref. 19] address this 
problem and suggest using a primitive variable formulation 
when using arbitrary orthogonal coordinates. 

Natural convection in spherical annuli was studied by Ozoe 
[Ref. 20] utilizing velocity-vector formulation. Field models 
involving prediction of fires in enclosures have been studied 
by Baum and Rehm [Refs. 21 through 24]. These include time 
dependent Boussinesq equations to simulate three dimensional 
buoyant convection and smoke aerosol coagulation. Field models 
involving three dimensional enclosures and employing the 
Boussingesq approximation, were studied by Bagnaro et al. 


(Ref. 25] and by Markatos and Pericleous [Ref. 26]. 


In this thesis, the numerical method developed by Yang et 
al. [Ref. 19] using primitive variable finite difference 
discretization in generalized orthogonal coordinates is 
employed. This method can handle complex geometries and has 
the numerical stability characteristic of primitive variable 


formulation. 


C. FIRE-1 TEST FACILITY 

An experimental test facility called Fire-1, has been 
constructed at the Naval Research Laboratory to study the 
behavior of fires in enclosed spaces found on submarines and 
surface ships. Since the computer code presented in this 
thesis models the geometry of Fire 1, this section contains a 
brief description of that facility. More information may be 
obtained from Alexander et al. [Ref. 27]. Figure 1.1 shows 
the basic layout. Fire-1 is a cylindrical pressure vessel with 
hemispherical endcaps. It is constructed of 3/8-inch ASTM 295 
Grade C steel and can withstand internal pressures up to 89.7 
psi and temperatures of 450°F. Its total length is 46.6 feet 
long. The cylinder and endcap radii are both 9.6 feet. Rupture 
discs are placed at each endcap to prevent failure due to 
overpressurization. 

Figure 1.2 shows the instrumentation layout. An array of 
chromel-alumel thermocouples with ceramic insulation and 
Stainless steel jackets, are placed near each endcap. 


Additional thermocouples are placed on the chamber walls, both 
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Sensor Locations of Fire-1l Test Vessel. 


Figure 1.2 


inside апа очі, to monitor inside and outside wall 
temperatures. A specific test might call for placement of 
extra thermocouples or radiometers at various other locations. 
These are arranged as required by the experiment. 

Burn rate data is obtained using round, tapered edge fire 
pans of various cross sectional areas, and a constant level, 
liquid fuel supply system. To date, this data has been ΙΗ 
least accurate in the experiment. The system and its 
Calibration are described by Alexander et al. (Ref. 27]. Smoke 
concentration can be measured using video cameras, particle 
analysis and obscuration with laser detectors. 

To more completely represent shipboard compartments, the 
facility has a number of features. First is the installation 
of two removable decks, one at the midheight, the other at 
three feet above the bottom. Either grated or solid deck 
plating is used depending on desired configuration. Second is 
the installation of a nitrogen pressurization system used as 
an extinguishing agent. Its performance is being tested for 


possible use combatting actual fires. 


D. THE COMPUTER PROGRAM 

This computer model is a joint project undertaken by the 
Naval Postgraduate School and the University of Notre Dame. It 
represents a low cost alternative to full scale test using 


Fire-1. With proper modifications, used in conjunction with 


Fire-1, it will test effectiveness of damage-control systems 
and evaluate new ship designs. 

In the work by Nies [Ref. 28], the code was based on a 
rectangular geometry with the volume identical to Fire-1. This 
was a three dimensional, finite volume model using primitive 
variables. Turbulence, wall conduction, and a global pressure 
correction factor were also included. Due to the unreliability 
of burn rate data, Nies [Ref. 28] devised a scheme for 
computing a heat release rate by using experimental pressure 
curves as input. 

Ihe actual geometry of Fire-1 was employed by Raycraft 
[Ref. 29]. Using its spherical/cylindrical coordinate system 
and detailed formulation of radiation surface view factors, 
global pressure correction, conduction and turbulence, the 
code created an extremely viable model for use with Fire-1. 
There were the continued problems with simulating the heat 
release data which were partially resolved by numerically 
fitting experimental burn rate data available. 

Houck [Ref. 31] inciuded a model which simulated internal 
forced circulation. It was compared to data run without 
circulation and it was concluded that circulation had minimal 
effects on the overall velocity and temperature profiles. 

In this thesis, advanced three dimensional and color 
graphics techniques are used to present data generated using 
the previously developed codes. Using the VAXSTATION 3100 SPX 


and the software CA-DISSPLA (Ref. 31] the data is presented in 


a more informative fashion. Color graphics are used to present 
isotherm profiles and three dimensional vector fields will 


represent velocity profiles. 
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II. DESCRIPTION OF NUMERICAL MODEL 


A. GOVERNING EQUATIONS 

The model is based on the system of conservation equations 
which govern the behavior of fluid flow and heat transfer in 
gases. These equations are in differential form and are 
presented in generalized curvilinear coordinates using 
standard tensor notation. Nies [Ref. 28] based his model on 
rectangular geometry using Cartesian coordinates. Raycraft 
(Ref. 29] refined the model to describe the exact geometry of 
Fire-1 and included surface radiation. Houck [Ref. 30] 
described the transformation to curvilinear coordinates, used 
by Yang et al. [Ref. 19], in detail and the following forms of 
the governing equations are obtained. 


The equation of continuity is: 


1 
Te ae (VaR I= 0 (2.1) 


The energy equation becomes: 


| 1 д9 T 
(РСТ), + — σσ Vg p uu! ) 
3 (2.2) 


3g Ue RS djs, 


ы. 
T 39 
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where the source term, S, is: 


S," u$ «PL OR age ὃν (2:3) 


g 


and the dissipation term is: 
кк 
Ф = 2 
E | М 


Е 2 
x GS) tx | y: 
1 1 


T 


(2.4) 


Sns is the heat source term which is zero everywhere except 
nodes at the fire’s location and 6,, is the Kronecker Delta. 


The momentum equation becomes: 


9 ulu 
COUN ES (Jg ) 
ТЕ 901 h, 
oi ope gU (2.5) 
1 σ J 


= И 7 РЕ 
τς, gp ου. αἱ τοπ. 


where the stress tensor is: 
(2.6) 


Effective conductivity kəf and dynamic viscosity μρεε include 


both laminar and turbulent terms. Additional terms found in 
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the momentum equation are due to coriolis and centrifugal 
effects. 
The equations of state remain unchanged through coordinate 


transformations and are given as: 
Р= ркт (2.7) 


UE CIC TET) (2.8) 


B. INITIAL AND BOUNDARY CONDITIONS 
In order to solve this system of differential equations, 
boundary and initial conditions must be determined and 
applied. 
1. Initial Conditions 
The initial conditions for the model are determined 
from conditions present just prior to ignition in Fire-1. The 
air inside is totally at rest. The temperature is equal to 
ambient temperature and is assumed uniform throughout. 
Therefore, in the model, the entire velocity field is set to 
zero and the non-dimensional temperature field is set to 1.0 
which corresponds to ambient temperature. Pressure and density 
distributions are at static equilibrium. 
2. Boundary Conditions 
Since the vessel wall is a solid boundary which is 
nonporous, the velocities, both normal and tangential to the 
wall, are zero. Mass flux across the wall is also zero. The 


temperature of the wall is equal to the temperature of the 
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fluid at the interface. Conservation of energy must also be 
met at the interface. The following three equations summarize 


wall boundary conditions: 


Usure = 0 (2.9) 
Тола Т. (2.10) 
oT oT 
ЧТ k, “on = EX. σῃ pP. (2.11) 


where q, is the heat flux arriving at the solid/fluid 
interface and n is the normal direction of the surface into 
the enclosure. There is conduction through the wall and 
convection from outer surface to ambient temperature. 

Due to Singularities occurring at r=0 in cylindrical/ 
spherical coordinates, special care must be taken at the 
origin. Yang et al. [Ref. 19:pp. 167-168] discuss methods το. 
addressing this problem. In this model, two consecutive 


control volumes are placed at r=0 and continuity is applied. 


C. MODELS OF PHYSICAL PHENOMENA 
1. Wall Conduction Model 
This model calculates heat loss from the vessel 
through the walls to the environment. It assumes опе 


dimension, unsteady heat flow and constant convective heat 
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transfer coefficient at the wall’s exterior. The energy 


equation is: 


( P.C. 7), = —= = (Үдк,Т 4%) ps (2.12) 
g 


2. Turbulence Model 
The turbulence model is a simple algebraic method used 
to predict mean flow quantities for incompressible boundary 
layer flows. Developed by Nee and Liu [Ref. 33], the model 
determines the effective viscosity in recirculating buoyant 
flows with large variations in turbulence levels. The 
equation, transformed into generalized curvilinear 


coordinates, is: 


Herr = (2.13) 
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where (/H is a non-dimensional mixing length parameter given 


as; 


(2.14) 





K is an adjustable constant and the Richardson Number, Ri, is 
given as: 


Ri = 


E L (2.15) 


MIESEDBIESECLEIESEHI 


n is a unit vector in the opposite direction of 


м |9 








gravity. 
Pr. is the turbulent Prandtl number which is also used 


to compute the effective conductivity. 


1 Маа (2.16) 








Рг ls the molecular Prandtl number. 
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3. Surface Radiation Model 
Raycraft [Ref. 29, pp. 24-44] describes this model in 
detail. Summarizing, the radiation model considers only 
surface radiation. Smoke and gases are considered transparent. 
Inside the model, walls and flame areas are treated as 
surfaces. Each surface is considered to be gray and diffuse. 
Sparrow and Cess [Ref. 34] discuss the net radiosity method 

upon which this model is based. 


Net rate of heat loss per unit area is given as: 


N 


Κεν. у) соТ; (2.17) 
А, 241 
where 
E δε = 2.18) 
a Ver Wi; ) (2. 
Wis = Xij 
Š - (1 - E, ) Papas 


Аі, ж == (2.19) 


E, 


SEIS the view factor of radiation emitted by surface i onto 


surface j. The general equation is given by 


Е. соѕ В, соѕђ, ад, ад, 
TRE f. J, (2.20) 


το eee зо есш ааа 
Tr 
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III. FINITE VOLUME CALCULATIONS 


A. INTRODUCTION 

The numerical model’s independent variables are time and 
three space coordinates. Dependent variables consist of the 
three dimensional components of velocity, temperature, 
pressure and density. These six unknowns require six equations 
for solution. They are the continuity equation (Eq. (2.1)), 
the three momentum equations (Eq. (2.5)), the energy equation 
(Eq. (2.2)), and the equations of state (Eq. (2.7) and (2.8)). 
Doria [Ref. 35] discretized these equations in a method 
Similar to this particular model based on the generalized form 
presented Бу  Patanker [Ref. 36]. Doria applied the 
conservation equations in integral form to each control volume 
creating a set of finite difference equations which would lead 
to a solution. 

Each control volume, or cell, surrounds a nodal ρου 
where one value of each property is constant throughout. The 
center nodal point determines pressure density and 
temperature. The grid determining velocities are staggered by 
one-half a cell length. Patanker [Ref. 36:pp. 115-120) 
describes how this alleviates two problems: the pressure 
differential between the two adjacent nodes, which ultimately 


determines the velocity at the node in question, is based on 
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a length which is half as long as in the unstaggered cell 
(this reduces error by one half); second, stability is gained 
by this stagger which precludes unrealistic, wavy oscillatory 
velocity fields, since the difference of adjacent velocities 
are used to satisfy continuity. 

Since primitive variables are used versus the stream 
function, the pressure term coupling between equations must be 
handled specially. An iterative procedure estimates pressure 
and then pressure is corrected to ensure continuity is 
satisfied for each cell. A local pressure correction is 
discussed by both Patanker [Ref. 36:pp. 120-128] and Doria 
(Ref. 35:pp. 26-32]. A global pressure correction is included 
in the model to handle net energy changes and is described by 
Nicolette, et al. [Ref. 3g 

The finite difference equations are solved iteratively. 
Non-linear problems like fluid flow are difficult to force 
convergence to final solution. Many schemes have been 
deveioped to obtain the flow problem solution. Each method has 
its problems and instabilities. This model employs the 
Quadratic Upstream Interpolation for Convective Kinematics, or 
QUICK, developed by Leonard [Ref. 37]. QUICK estimates values 
E Gradients of transport variables at the faces of the 
cells. It has the accuracy of central finite difference 
schemes and the stability of convective diffusion terms found 
in upwind differencing. Yang (Ref. 12] applied the QUICK 


scheme to coupled momentum energy and pressure equation 
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solutions for three-dimensional flow in tilted rectangular 
enclosures. 

In this chapter, the governing equations will be applied 
to the specialized control volumes of the model. They will be 
put in integral form and discretized according to the QUICK 
scheme. Pressure correction from iteration will also be 


applied. 


B. CONTROL VOLUME ANALYSIS 

At the center of each elemental control volume, or cell, 
lies the grid point of interest. At this point, the model 
determines the unknown values of the dependent variables. 
Denoting this grid point as P (i, j, k) we define its 
neighbors as: East (itl, j, k), West (1-1, 3, k), North 
(1, 141, k), South (i, j=l, k), Eront (1, a9, КІ!) Шы 
(i, j, k-1). The boundaries around P are designated by lower 
case letters e, w, n, s f, and b. Typical spherical and 
cylindrical cells are shown in Figures 3.1 and 3.2 
respectively. 

Figure 3.3 shows the basic two dimensional cell used to 
determine pressure, density and temperature. In contrast, 
Figure 3.4 shows the staggered grid used to determine 
velocities. The velocity u. is located on the west face; ч. 
is located on the south face and wu. is located on the back 


face (not shown). The superscripts on the velocities designate 
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Figure 3.1 Basic Spherical Cell. 





Figure 3.2 Basic Cylindrical Cell. 
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Γοῦ 


Figure 3.3 Two Dimensional Cell. 


< 


Figure 3.4 Two Dimensional Staggered Cell. 


coordinate direction. These velocities are staggered in 


location by one-half cell length from the primary cell. 


C. INTEGRATION OF THE CONSERVATION EQUATIONS 

The conservation equations are integrated over each cell 
volume. From this point, they can be discretized into finite 
difference equations. The integral form of the continuity 


equation is: 
fe h, h, h, 00? 06? 00: 


* | - (pu!h,h,) ЕА ( p u2 h; h, ) 


E (pu?h,h,) ] 90:90? 90° 


= 0 


(3.1) 


Тһе energy equation becomes: 


39 (pC,,T) 


— CE h,h,h, 90! 30" 96: 


+ (i - (pc, u'Th,h,) d (pc, ut. Thyh,) 


i (pC,, u?Th,h, ) 1 003 90? ge? (3.2) 


- е8. ( q! hh, ) ке (ағһҺ,) E ( q?h,h,) ] 
- 90: 90: 90’ + f Sh, h, h, 30? 902 902 


where: 


1. “К OT 
е: (3.3) 
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The momentum equations become: 


TS (pui) h,h,h, 90! 00? 98? 


3 [203 } ρα: 1321 9θ: дө? дө? 


j 


-д h, h, h, 
= ( P 00! 00? 99? 
| ape 


+ f PG, h, n, n, 9θ' 30? 30? (3.4) 
«dan (оз дө: дө? 96: 
1 


J 


2 h, h; h; 98, 1531-7717 1 2 3 
πε πο 0:7) ] 00! 90? 90 


" h, h; h; dh, ТТ! 1262 203 
JE ее 652) 1 90: 967 90 


О. DISCRETIZATION OF THE CONTINUITY EQUATION 

To provide maximum stability and accuracy for the model, 
three finite differencing schemes are utilized. Forward 
differencing is used for time dependence, central differencing 
is used for diffusion terms and the QUICK algorithm is used 
for the convective terms. 

In forward differencing the future value of the time 
dependent variable is predicted from its previous value plus 
an additional term derived from the previously known slope m 


multiplied by the time step At. For example the new value for 
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density f^ is calculated using the old value p"! plus the 
extra term: 
07 = pa +mAt (3.5) 


The integrand in the continuity equation (3.1) becomes: 


ου... р°-р”^! 1! Ag? AQ? = PP 3.6 
πε αν —nh.h, h; A8 АӨ? ЛӨ LE АУ (3.6) 


Evaluating the integral, Equation (3.1) becomes: 


(p^ - p^) E *[pu'h,h,d0? dO? ], - ( pu! h, h, d? d8? ], 


*«[pu?h,h,d03 d? ], - [pu?h, h, dO! d0? ], π 
+ [ p u° h, h, d0! a02 i [ p u° h, h, a0! a0° 1Ь50 
The mass flux, G, must be calculated at each face: 


G = (pu1) = u; Pp ( h, A0? ) 11 + Pe ( h, 40°), (3.8) 
° я ( h, A8 ο. ( h, A0 E 


(3.9) 


= (ри!) = 1] Pp (2, AO") 1-1 + Py (2, 8") , 
(А. ЛӨТ), , + (А, Д0: ), 


( h,A02).. + ( h,A02) 


= (ри?) = 4 (ыма) ер CRD (3.10) 
о, (3.11) 


, (h,AG’),., +P n 
G = 2 271 5 j 


3 0 ἱ RAO O h, A0? ) x (3.12) 


G,= (pu2) ,= 
a р e~ Ug ΤΩ h; A03 OUO h, A0? |5 


3| Pp < h,A0:),., +p, ( h;,A0°), (3.13) 
| (BAO 0-7 


G = (pu2), =u 


The areas of the faces of the cell are given as: 


А, „= ( h,A@? h,A@?), , (3.14) 
А „= (Һ,АӨ!Һ,АӨЗ),, (3.15) 
Ar, = (nae tae (3.16) 


In final finite difference form the continuity equation 


becomes: 


{pen pr 37 + G,-G,+G,-G, + 6, - 6, = S, (3.17) 


Sap ls the mass source term. As this residual approaches zero, 
the solution approach the exact solution. Iterations occur 


until S, reaches a specific, extremely small, cut off vos си 
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E. DISCRETIZATION OF THE ENERGY EQUATION 


Integrating over the control volume, the energy equation 


becomes: 


n n- AV 
[ (9C, T)^ - (9C, T) 1 A5 € G, CC,T),A, 


-G, (CT) Ay + Gy ( Cont) A, - G, ( C T), A, + 
Ge TUAM TG, (C. T); A, 


м OT Е ӘТ 

= k. A. (к | KIAS Ë | (3.18) 
oT oT 

+ Kk -k 


si] n (ti | 
3 f 3 b 


where S, is the source term including dissipation, radiation, 
pressure work and heat sources. The total heat flux, J, 


resulting from convection and conduction is: 


oT 
рс оту Kı (3.19) 
| р τ ΠΟΘΙ - 


OT 
eee | COC U TIEK, (3.20) 


oT 
ο “σος ` u? maska (3.21) 
rob | p {ΠΠ А 
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The final finite difference form of the energy equation 


becomes: 


[ (PG, T)^- (9G, T) fF * A, (3.22) 


- ЛА, + ЈА - ЈА, + ЈА, - Jp A, = S,AV 
The term (pu'C,T) in the flux equations Сіуе τισ 


difficulties since Cm, P and T are evaluated USt otheM LL 
point instead of the surface of the cell. Thus, fluxes are 
determined from values of p, T, and C, at P and τες πο παν 

The QUICK Scheme is used to determine accurate values of 
the dependent variables at the control volume surfaces with 
Stable properties. QUICK couples the stability of upwind 
differencing with the accuracy of central differencing. It is 
achieved by using a parabolic polynomial interpolation to fit 
the control volume at three consecutive nodal points. Two 
nodes are located on either side of the surface and one is 
located upstream. Yang (Ref. 12:pp. 77-89] discusses QUICK for 
one, two and three dimensions. Houck [Ref. 30:pp. 37-50] and 
Raycraft [Ref. 29:pp. 63-74] used the QUICK scheme for the 
energy equations and that method is repeated here. 

Figure 3.5 from Raycraft (Ref. 29:pp. 64] shows the ona 
dimensional scheme for the quadratic interpolation of a non- 


üniform grid. 
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Figure 3.5 One Dimensional Quadratic Interpolation Scheme. 
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її is given by the equations 


TER RCM Ем Eie] (3.23) 
(рот, 6,0, || ΤΙ ET (3.24) 


where the upstream weighted curvature terms are: 


Curve AX; ig ip 2202 If Fe >0 
TF АХ, AX, AX, s (3.25) 


- e 
AX Хы 


Axa [ T4- T, ыт ш 
< 
Ез a E 


Ах? 1,- Т, 1,-Т 
curv,- E бе о 


ху — E τες 
Ха (3.26) 


р 
Ax 


Ах тоет шасы 
πα -— 


| 1ГЕ <90 
and ` 


Ax,= > (AX,+AX,., ) 


АХ = 


w 


(AX, +AX,_, ) 


NJ 


(37279 
АХ 


ее 


(АХ, +АХ,,,) 


κ 


A Xx 


ww 


(АХ, ү+АХ,.,) 


m 
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In generalized orthogonal coordinates the convective flux 


terms become: 


TORRENS = сигип, | (3.28) 


ΟΠ ᾱ-- E E curvn d (3.29) 


where 


Gier] T s n 
ΠΕ Ξ 


(Һ,АӨТ), ARAS. E 


_ (h, A01); т а ipe 
(h, A01), ας E 


EE »0 
(3.31) 
ER <0 


and 


e 


(h,A01) - [ (hA01), + (hA01)..,] 


(Һ,461),-2 [ (h,A@?), + (h,A®*),, ] 
(3.32) 


CHAO aQ 4 AO ων] 
(h,A01),.= Z [(Ch,A83),, * (5,403) ,,] 
Equation (3.22) now becomes: 


AV 


[ CPC T)^- CPC, T) ) ] hi — Ы зз 


= А, Т. + А,Т,-А,Т, + 5 (Һ,А0!) 


S 


T. and T,, are included in the source term using a semi- 
implicit tri-diagonal solution procedure. For a uniformo Toia 


the other coefficients are: 


Съ (16 = 6 
ديو‎ - ) 03 (3.34) 
1 


C. (9G6,+3|G,|) 
E 7 к, (3.35) 


h, A6! 
E k, * k, 
πο ( G,C,, 7 G, C;,,, ) +3 Com, + Ge) παθτ (3.36) 


S,=Sh,A0!-Cc, (| G,| < Gad Tee {| ΘΠ 


As mentioned before, Yang [Ref. 12:pp. 82-89] extended the 
QUICK algorithm to three dimensions. The three dimensional 
algorithm for generalized orthogonal coordinate system is 
described below. 

As in the one dimensional case, the average temperature of 
the control volume is determined by interpolation of its 
neighbors in three directions. For illustration, Figure 3.6 
from Raycraft [Ref. 29:pp. 68] shows a simpler uniform 
rectangular grid. The actual grid is Similar except that its 
cylindrical/spherical geometry is more difficult to show. Yang 
(Ref. 12] describes how curvature terms are calculated for 


each of the temperatures and substituted into the convection 
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Figure 3.6 Calculation Cells for a Uniform Rectangular Grid. 


terms of the energy equation. The new energy equation becomes 


ΕΠΕ τ s T 


Δε (3.38) 
= Ар Т, + А Т„+ Ar T, + As T; + Ar T, + Ag T, + Sg 


where the additional source term S,' is: 


AV 


Sy = ( P Con," xz "Асе 


Ы А в Е А умр τ Assn га А рв E Appr (3 a 39) 


The following terms are part of Equation (3.38). All values 


are for point (i, j, k) unless specified elsewhere. For = = 


S 


example, ul,4 is designated u,’ whereas, u,,, , , is specified 


üis ° 


CN-G,- u$ 5.Θ απ 


CS-G,.* u$* ρα”. 


5 


CE =G," uia” (KAO DENEA) 


e 


- (h,A02). 


(3.40) 
CWzG,: uj* (hjA0?) 


СЕ = б, ш” (АӨ OO 
CB*G,: uj: (h,A0! ),- (ASO 


Thermal conductivity is expressed as: 


( h; A6 eee ( h, A6 ) ja 


اک (h40° ) ,) + (Ky (h,A0°‏ ا 
CK aa 5.) 7‏ |„ 
(h,A®) ,+ (h, AO) ,,‏ 


(k,* Ch,A0 ) )7 * (ks Ch489) | 
( h, A6) , ΗΑΕ ER 


(3.41) 


—  «XHh48),*(h,A0)Di, 


(k,* (h,A01),)” 1 + (k,.. ° (h, Laro 


k; = 
( h, A07), + (А,ДӨ? 


) k+1 


k, = 


di 
b> (h,A0 5 eas ar 


-1 
CK (HAG) TT (MAG DS 
CH;A07y, зе ат 
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CONDN]1 = k, ` 


CONDS1 =k, 


CONDE1 = k. 


CONDW1 =k, 


CONDF1 =k, 


CONDB1 = k, 


(3.42) 


СЕР 


СЕ| -СЕ 
CEM = Í 
πρ = 


CWP 


CWM = 


CNP = 


смм = | CNÍ - CN. 
сер- 1С5| “С5, 
сем- 1|С5| -С5. 
CFP = сс ки 
cru = Í| CF| -CF. 
cpp = | CB| + СВ. 


CB | - CB 
свм= 168. - τ 
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_ |CE|+CE. 
ΒΕΠ 


ο ος 
— 
| CW| - CW. 


| CN| * CN, 
16 


( h, A8 ), 
CHAO, 


(Һ,401), 
(8,487) 


i+] 
(Һ,401), 
( h,À d ) ia 


(h, A91), 
(2,401), 


( h,A9? ), 
(Hea, 


(h,A02). 
(5,495). 


)gn (3.43) 
(h,A0? ), | 


TENE г 


( h,A8?), 
HAO 


(h,A02), 
(h;A 87), 


(Һ,АӨ?), 
θήν 


Ke} 
(3.Δ63), 
(h;,A0°)... 
(h,A03), 

( h,A6 ) k 


r _ -CEM- (h, A8! ), 

πω E 
(hA ) 28 

-CWP- (h,A0!), 
( h, AÛ") „, 

7. ~CNM: (h,A@?)_ 

κο ποσο Те 
(ҺА а 

τ. -С5$Р.+ (Һ,А@?), 

a --ᾱ 
( h,À M 

т. “CFM: (h,A63), 
s (8,407); 

-СВР- ( һ,А03), 
(1:86 ) bb 


Айе 


(3.44) 


1. 
Ags = 


Final coefficients for the source term are: 
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Intermediate coefficients are: 


Agr = ¬ ` CE + CEP + СЕМ 
d nae. ΟΝ 
+ СИМ: 
A, = = CW + CWM + CWP 
° 1 + (hi QOD + СЕР · 
(Һ,АӨТ) 
Ay, - > ` CN + CNP + CNM 
‚|, „лн M 
TN: m 
EE 


sı = CS+CSM+CSP 


: ‚шш е + CNP ° 
( hA 2 


"CERE 


: e ыш = |. свм- 
( h;,A0° ) ,, 


Ag, = ` CB + CBM + СВР 


Е ee eee 
(h,A0°),, 
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(3: 


(39 


(3. 


(32 


.46) 


47) 


48) 


49) 


50) 


. 51) 


Final coefficients are: 


and: 


F. 


APTAL- CL *CONDEI 


Ap = Aur” Cpm, + CONDW1 


m 


Ay = Ayr ` C, 


m 


+ CONDN1 
Ι (3.52) 
Ag =Ag,* Cop, + CONDS1 


Ayr = Ар ° С, 


x CONDF1 


As =A,,° C, 


Гы CONDB1 


Ap =C, * (Ag * Ay * Ay * Ag * AF * Ag 


+A +A TA. TA +A) CONDEI (3.53) 
+ CONDW1 + CONDN1 + CONDS1 + CONDF1 + CONDB1 


DISCRETIZATION OF THE MOMENTUM EQUATION 
The integrated momentum equation is: 
(pui), V+ MA, - Mz A, + MZ A, 


(3.54) 
- M22 A, + MË A, - M` A, = S 


where A. are the face areas of the staggered cell given by 


Equations (3.14 - 3.16). MÜ is the momentum flux in the ĝt 


direction due to velocity uf convection and to diffusion, and 


is given by: 


Мі = (putul -0}) (3.55) 
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Included in the source term S! are pressure gradient, body, 


coriolis and centrifugal forces. The source term for velocity 


716: 


S-=-P A, +P A. +pG'AV 
| (3.56) 
-M (A,-A,) - Mj CAS- AL) + (М;*+МД2%) (А„+А,) 


Yang, et al. [Ref. 19:pp. 11-13] describe a "stress flux 
formation" as it applies to a curvilinear coordinate system. 
Stresses are evaluated from previous information and the 


Source is given in the current information. The momentum flux 


6% 
Mil = МЇ? + (61-01) (3.57) 
where: 
бі = u 
: S7 (3.58) 
— 262 
Mi = pu‘ui- 6} )3.59( 


The momentum equation for velocity u’ is now: 


(pu), + MIA, - PA, + AFA -NPA +A A, + М?А, = 5 (3.60) 


where: 


$2S-(0i1-0:),A4,* (01-01),A,- (01 - 01),A, 
1 ος 1 | 1 1 (3.61) 
* (61-601),A4,- (61-01) ,A,- (61- 01),A, 
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The momentum equation for 0: takes a form similar to the 


energy equation 


2 1 1 к: n 
u, = A ug +A ug +A, u; +A} u; 


Е mu +p” i 
x (3.62) 


αυ, απ 
Again we must obtain final coefficients. Tnt roducing 


intermediate mass flow rate per unit area: 
E и, (05 Ch249?) J+ Py (hA) pa] 
= (Һ,АӨ?) EO. ER 
ОРТ. ( h,A802 ) ο ( h;A02) ΠΝ 


G,, * uii, jl 
(Һ,АӨ?У + (Һ„АӨТ) 


= uP: ( h,A 02 ) ),*p, C49) ,,], (3.638) 


G, 
πι» 


μὲ {[Ё- gr (AO?) LS " 


oT 
E πο πα μι 


ШІ ( 5. A0! ) Se 


= и; геі 
(Ἠ 46. + (h.A01).. 


41 


ο το. "noe ( h,A0 ), * p, (hA ),], 
(h, A8. *h, A07), 


ui, { ο, ( һ,АӨ! о һ, АӨ! - ) 


G = uj LE: x | 
(h.A ),* (h)A S 
G, - uil [ρα (1,40%), ер, (55483), J| 


(h,A07), * ( h, A0 ) kel 


(3.63b) 
Сое Б. (ΒιΔθ}) (Һ,АӨЗ) su ) 
( h,A 092) S ms m 


I Diss (1,40%), ер, (1,46%), |)‏ چ 
a ἘΠΊ. ας...‏ 


ес фес (h,A0'), +p,., Ch,A07) s] ) 
> Μα πα βήμα 


Final mass flow rates are: 


СЕ-- (G,*G,) ` (h,A02).- (h,A02), 


1 


CW= > (G,+G,) ` (h,A02),- (h,A0°), 


.A01) +G  (h.A01 
CN= (h.A01) ` (h,A03) ` Í [Caa (MAOC 
| | (h,A6') | + (h, AO") . 


h.A01) .+G., (h.A@? (3. 6 
С5-(һ.461),- (һ,АӨзу,- (16: AF) ut Csu (RAY) el 
— maon Aan — 


[G, (h.A01) +G. (h.A01) ] 
CF= (h.A01) ,-` (h.A02) - (_ - To s 
( . ); ( 2 Ө E  (hAG), + (h,A05_ 


[G.. (h.A01) +G. (h.A01) ] 
CB* (h.A0!),- (h,A0»),- (559 2 "ы ш : 
( x ye ( 2 θ )> (h,A01) , * (Һ,АӨТ), 
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mimes local viscosity is: 


VIS, = VIS 

VS MS 

VIS, = ( VIS, υπο ον E ла VIS, J 

VIS, = (VIS,., + VIS + VIS i t VIS) (3.65) 
VIS, = CUTS ІС + VES eae TS ae 


E ,A0? ) ( h. A8!) 
Vien = VIS: 


(АӨ) —— 

J 1) 

Vans Ho E VS (h, A0?) ( A9 
GENS - 


(h A01) 
(3.66) 


( h,A0? ) (h,A07) 
VISW1 =VIS,° 
(hA0 — 


(h.A01) ( h,A02) 
ИТС = УТБ 
CR,AO) 
(h,A01) ( h,A02) 
(5,462): 


| 
| 
VISEl- VIS, | (h,A8? ) ( h,A8? ) | 
| 
| 
| 


VISB1 = VIS, ` | 


The momentum equation coefficients are: 


Acre = Ace 5 Use] 
= υ ° : 

ee = Aww 11;-2 
= υ ο ἃ 

ως жез Акм 13-2 (3 67) 
= υ е 1 

Assn = Ass U 3-2 

e - AT š m 


e υ da 
ο. » Азв 1%-2 


As with the energy equation, the value of the final 


coefficients are: 


Az = A,,+ VISE1 
Ay =A,, + VISW1 


Ag = Ay, + VISN1 


(3.68) 
As = A,,+ VISS1 
Ar = A,, + VISF1 
Ав = А, + VISBl 
апа 
ü — x ü u u "u T ü 
А. = Ас + А; + Ду + Д; + Аг + А; (3.69) 


u 4 u u u u 
+ Acr + Anw + Ann + Ass + Afr + Asg 
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The final source term is given as 


ο. АӨ pa О. Де. 1 Αν. 
Su = 
[ (h,A6*) + Ch AOE] At 


+ ( h,A02) τ. ο το ρε Арс Алык 


111 


+ Assr * Arrr t Apar + RE - КИ + RN - RS 

+ RF - RB + RRY + RRZ - RRX - BUOY сш 
‚сл сс p 889), 

ССР ορ pu J (PAO) 


СБ ИЕ ОИ УТОА АӨ) + Ch, A0! ).] AV 


where XC and ZC represent the center of the cell. The 


remainder of the terms are explained below. 


je — 1 Ν 
О s sopa u) 
лт - 


RW= (h,A02), (h,A02),- po s ss, 
(h, A01), 


RN* (h,A0!) , ( hj,A8?) ,- 


051 - ( и} - uj) ` VIS, 
(h, A07). 
(3.71) 


^l^ +J "FU 
RE (HAO ΠΗ, Ск 7 Cura 7 Ur) 3 


O (AG - 


= o 
SS (JH AO!) СЛЈАӨ саа о 
RB = (Һ,АӨ!), (РҺ,Д0? ), · e 


-(ul-ui,)- VIS, 
(h, A81), 
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Su = (оу зу) 

з ЖЕ 13 ΤΩ 

O m ( Ox бұ) 

2 62 (Һ,А01), 6%, (Һ,401), (3.74 
(h A01) + (h A01). 

з СЗ (ЛӨ) το τ 
( h, A0") „>+ ( h, A0! Jm 


Q| 


а 


AUl1*u:! 
_ (| lı (240°), + uj Ch, A8? E LT mam) 
TILA AOD аға ) I 


(| ui. aa hAON a Ao E 
2B, АӨ? 


Ж 
/ 1 (HISO, (TAO 


| h, 40! ),) 


(3.73) 
ΙΕ ез (1,40%), (Һ,402), ( h, A0! ) 
2B, A05), l 
o | ui ke (h,A0?) , « ui. ( h,A 9° Τη ( h. A0: ).) 
2 (Н,403) ` 
ДОА Хезу ΠΟΘΙ ΠΠ 
_ P (h, AG”) Ρο 05... 
(hA01) 7 + (n AG Н 
ARU12 = AR- AU1 ` AU2 (3.74) 


ARU13 = АБВ: AU1 - AU3 
АК022 < АК“ А02: АҮ02 
ARU33 = AR: AU3- AU3 


FEI (GO -ARU12) (h,A0?)) ,[ (5,0!) - (h.A0:) .] 
RRZ* (0? - ARU13) ( hjA0?) ,( (h.A8!) ,- (5,403), (3.15) 
RRX* (0?? - AUR22) ( hj,A0?)),[ (5,40?) ,- (5,40?) ,] 


* (6? - AUR33) (bjA0?) ,[ (h,A40?) ,- (5,4807) ,] 


Similarly, momentum equations for the other two directions may 


be obtained but are omitted for brevity. 


б. PRESSURE CORRECTION 

In the finite difference scheme, energy and momentum 
equations are used to solve for temperature and velocities. 
The equation of state and continuity are used to solve for 
density and pressure. Doria [Ref. 35] states that pressure is 
only weakly coupled to the equation of state. Therefore, 
updated temperatures and pressures determine density in the 
equation of state and continuity is used to correct pressure 
across each cell. 

As discussed earlier, a disadvantage of using primitive 
variables is the difficulty in calculating pressure. Two 
corrections must be applied. First, a global pressure 
correction accounts for changes in net energy of the closed 
System. Second, a local pressure correction accounts for 
pressure changes causing the velocity field. 

1. Global Pressure Correction 

Nicolette, et al. [Ref. 3] developed a correction 


scheme for a two dimensional square enclosure. Raycraft [Ref. 
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30] modified it to fit the geometry of Fire=1. η απ 
mass and volume system, the overall pressure depends on the 
addition or removal of energy. In such a system, the sum of 
all the cells' computed density times its volume is equal to 
a constant total mass. At any time during a run the mass must 


equal the total mass at equilibrium. Summing over N cells: 
У; р: (д7), = Ур, (AV) (3.76) 


where n is the n?" time step and the EQ subscript indicates the 
equilibrium point. Assuming that air is an ideal gas, its 
density is a function of temperature and pressure only. The 


actual values of both consist of the estimate and the global 


correction: 
P = P* + P (3.77) 


TED ET (3.78) 
where P' and T' are the estimates and P, and T, are the global 


corrections using the ideal gas law and Equation (3.76). The 


global pressure correction becomes 


(3.79) 





Mass is conserved for each cell when an accurate final 


pressure is obtained. 
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2. Local Pressure Correction 

Patanker [Ref. 36:pp. 120-126] and mena [Ref. 35tpp. 
26-32] developed a procedure for obtaining the local pressure 
correction. As in the global correction scheme, a pressure 
field is estimated from the previous time step. Velocities are 
calculated according to this pressure distribution and the law 
of continuity is applied to each cell. If the residual mass 
ЕП 5, approaches zero, then the estimated pressure field is 
satisfactory. If not,a local correction is calculated and 
applied to the original estimate. The new pressure field is 
used to compute a corrected velocity field and the residual 
ST Is rechecked. The process repeats itself until S, 15 
an acceptably small value. As in the global correction, the 


actual local pressure is: 


Р=р° + Рр' (3.80) 


where P' is again the estimate, usually the pressure of the 
preceding iteration, and P is the local correction. Putting 


this correction in typical finite difference form: 


A,Pp = А.Р. + А.Р, + А„Рь + АР + А„Р; + А„Р; - S, AV. — (3.81) 
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where: 


р ССА ЛОО 


и AV 
(аш i P. "AE 


А. = 


a = P. L (h,A02) (h,A02) 17 


т | 3 74 
Αρ “РЕ 


p," LCh,A03) (Һ,403) 12 


- Δν 
(мар, ЖЕ 
a = Ps’ [ (h, A0) (h,A0°) 1, 


Е | s у 
Ap а= 


α « Ρε" [ (1Δθ)) (ἨΔθ7) 1: 


: ۴ κ 
Е * Pr At 


pu^ [ ( h, A01 ) CHAD 


| u ἢ 
Ар? ` Po x= 


A, = A, * À,, + A, + À, + A, + À, 


A, = 


Corrected velocities are: 


ul = yl + yl 


u? = u?* E u?” 
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(3.82) 


(3.65) 


where: 


a (PEE paih, A0 yah A0 ) 


(a 2) 
eo ο (DAO) 
а 00 ЕСТІ — (3.84) 


[Α΄ -ρ, де 
,_ (P,+P,) (h,A01) (h,A82) 


Again S,, is computed using continuity. If the residual mass 
is within a satisfactory range, the calculation is finished. 


If not, another iteration takes place. 


ου 


IV. NUMERICAL PROCESS 


A. INTRODUCTION 

Temperature, velocity, pressure and density fields are 
produced by the code. Input parameters are initial conditions, 
fuel heat release rate, fire location, geometry and material 
characteristics such as fluid properties, wall properties and 
the external heat transfer coefficient. These are listed in 


Table 4.1. 


TABLE 4.1 MODEL PARAMETERS 





Material ASTM 285 Grade C Steel 


Thickness 3/8 inen 

Specific Heat 0.1 BTU/ (lbmeF) 
Thermal Conductivity 25 BTU/ (hre fteF) 
Density 487 lbm/ft? 
External Heat 15.0 BTU/ (hr* ft?eF) 


к s ΛΕ E 





Burn Rate Function provided in program 
Initial Temperature 35206 G 

Initial Pressure 1.0 ATM 

Location of Fire Center of Fire-1 


23.1 ft. from each endccap 
3.21 ft. from bottom 


Figures 4.1 and 4.2 show the spherical/cylindrical grid 


used by the model. Endcaps are spherical with Ө, БЕК, and ὁ 
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directions. The cylindrical midsection have 9, R and Z 
directions. There are 14 cells in the R direction, one at R=0 
for avoiding singularity and one used as the vessel wall. 
There are 20 cells oriented clockwise in the 0 direction. Each 
endcap has six cells in the ¢ direction with a cell again at 
zero to avoid singularity. The midsection has 18 cells in the 
Z direction (6 is used for simplicity). Table 4.2 gives 
information on grid parameters. 


TABLE 4.2 ADDITIONAL MODEL PARAMETERS 





Number of interior cells 6,720 


Number of wall cells 560 
Number of wall radiation zones 560 
Number of fire radiation zones 9 
Number of cells in R direction | 14 
Number of cells in 9 direction | 20 
Number of cells in @ direction (per endcap) 6 
Number of cells in Z direction (midsection) 18 
Time step 0.0288 sec 
VAXSTATICN 3100 CPU time (1 CPU hour) 0.821.0 sec 


Fire Time 


B. SOLUTION PROCESS 


The model contains two separate programs. The first 
authored by Raycraft [Ref. 29] calculates the view factors for 


surface radiation. It produces a matrix of view factors. It is 
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used only once and its values are stored for use whenever 
called by the second program. 

As described by Nies [Ref. 27], Raycraft [Ref. 29] and 
Houck (Ref. 30], the main program uses finite difference 
methods described previously to establish temperature, 
velocity, pressure and density fields. Initial parameters and 
the view factors are first read into the program. Geometry of 
the grid is then calculated and the fields are set to initial 
conditions. Next, effective viscosity is computed іп 
Subroutine CALVIS. Every two time steps, surface radiation 
flux is recalculated in subroutine RADHT. Subroutines CALT, 
GLOBE, CALU, CALX, CALW and CALP calculate temperature, the 
global pressure correction, the velocities and the local 
pressure correction. Using the corrected velocities, 
continuity is applied to each cell. If the residual mass 
RESORM is greater than 10.0 the program is unstable and stops. 
A smaller time step must be used. If RESORM is greater than a 
set tolerance level then the program iterates solution by 
recalculating velocities and pressures. Iterations continue 
until 1) RESORM is below tolerance levels, solution is reached 
and the program proceeds to next time step; 2) the maximum 
number of iterations is reached, or 3) RESORM is greater than 


10.0 and the program is stopped. 
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C. GRAPHICAL ANALYSIS 


The use of CA-DISSPLA” [Ref. 31] has posed some difficult 
problems. The output from the computer model is in the 
spherical/cylindrical coordinate system created to simulate 
Fire-1. This output must be converted to cartesian coordinates 
in order to be manipulated by CA-DISSPLA'. Even after the 
conversion is completed the resulting irregularly spaced grid 
must be interpolated into a regularly spaced grid. 

After some experimentation with grid interpolation 
schemes, a group of CA-DISSPLA” subroutines are used to create 
a regularly spaced matrix. These subroutines interpolate 
values from a set number of neighbors. Care must be taken in 
choosing a grid size to ensure distortion of the field values 
does not occur and to ensure that the software will not zero 
data points with few close neighbors. A relatively course grid 
has been chosen (50 x 50 x 100) for graphics output. New data 
points created outside the enclosure have been set to ambient 
values to minimize distortion at the boundaries. 

The VAXSTATION 3100 has proven to be an excellent machine. 
It has good numerical speed coupled with very sharp graphics 
capabilities. Future research of this numerical model has been 
greately enhanced by the incorporation of this workstation. 

The following figures are temperature and velocity 
profiles for times of 30, 60, and 90 seconds. They are two 
dimensional images of three dimensional phenomena. Each 
figure, whether temperature or velocity, presents an axial 
view (XY-plane) of the tank at the midplane and a longitudinal 


view (YZ-plane), again at the midplane. 


ο 


Raycraft [Ref. 29] and Houck [Ref. 30] detailed the 
validation of the code against experimental data of Fire-1. 
They also discussed such phenomena as the fire plume, pressure 
effect, temperature stratification, and velocity fields. Much 
of their analysis will not be repeated here. Instead, the 
effects of local numerical perturbations will be discussed. 

Raycraft  [Ref. 29] observed remarkable symmetry in 
temperature and velocity profiles throughout the entire trial. 
Houck [Ref. 30] also observed the expected asymmetry, after 
implementing forced ventilation in two locations. In this 
thesis, these ventilation equations are not removed. The 
additive velocities were simply set to zero. As seen in 
Figures 4.3 to 4.8, a marked asymmetry similar to that 
observed in Houck [Ref. 30], has developed and is readily 
observed in both temperature and velocity profiles. This is 
despite the fact that the effects of ventilation have been 
supposedly negated. After the millions of calculations done by 
the computer to provide solutions, terms in the ventilation 
equations which are set to zero have greatly effected the 
entire field. 

Color graphics have greatly enhanced ability to observe 
phenomena in the temperature fields. Temperatures can be 
quickly determined using the color legend, as Figures 4.3, 
4.5, and 4.7 show. These figures have been printed on a 
Tektronics 4693D color printer and exhibit excellent clarity 
and resolution. 

Three dimensional vector field representation of the 
velocity fields, Figures 4.4, 4.6 and 4.8 can only be 
represented in two dimensional form for this geometry. Results 


become confusing if three dimensions are shown. 
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Figure 4.3 Temperature Profiles at 30 Seconds 
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Figure 4.5 Temperature Profiles at 60 Seconds 
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Velocity Profile at 60 Seconds 
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Figure 4.7 Temperature Profiles at 90 Seconds 
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V. CONCLUSIONS AND RECOMMENDATIONS 


CONCLUSIONS 


The acquisition of the VAXSTATION 3100 SPX XRJ19 Model 
38 workstation with its blend of numerical speed and 
graphics clarity has greatly enhanced the research. 


The ventilation equations incorporated into the model 
in the previous thesis have a great effect on the 


entire field even when their output velocities are set 
to zero. 


Color graphics have provided an excellent means for 
presenting temperature profile data. Coupled with the 
Tektronics 4693 color print,  CA-DISSPLA' Graphics 
Software provides researchers with an excellent tool 
for displaying scaler data fields. 


Three dimensional vector fields are difficult to 


present, ambiguous, and must be reduced to two 
dimensional images. 


RECOMMENDATIONS 


Removal of the ventilation equations is required to 
regain symmetry observed .in previous research. These 
equations are effecting the entire field although their 
additive velocities have been set to zero. 


More sophisticated physical models need to be 
ыш аге and incorporated, such as turbulence, 
qaseous radiation and combustion. 


Streakline analysis in three dimensions should be 
conducted to show the path taken of an individual fluid 
particle as it leaves the flame area. This method may 
reveal more of the fluid dynamics than current 
representations of velocity vector fields. 


The ultimate goal of this project is to develop a model 
which can predict behavior of fire in shipboard 
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situations, for example, changing the geometry to fit 
machinery spaces and berthing compartments. this will 
offer designers a valuable tool for the construction of 
safer ships and submarines. 
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DEVELOPED BY : 
H.Q. YANG AND K.T. YANG 
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Ὀχκο 95) ΟΥΥΟ(993) DZZC (93), DXXS (93), DYYS(93), DZZS (93) 
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COMMON/3L39/ALEW, PCURVE, CONSRA, PCURM1, PSOUTH, ZCO 
DIMENSION VFMXC(579,579),T4WALL (579) 
SATA N,ZITLEFT,SORMAX, XTIME, ITMAX/20,400000,0.40,92.90,4/ 


RZP ERENCE 
SN TITAL 


REFERENC: 


Ms ὃς 
ος Εντ 
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"2 MPERATURE 
SSMPERATURE 
SRAVITATIONAL 
SAS CONSTANT; 
AUD XO SC 
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ο ΤΗ 


(EE SECT 


(ET) 


(R) 
(0) 


CONSTANT 
29094 


(CM) 
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θες 


(aM ЕЗ) 


о М л 


RRT ERROR 


Or S2), WPD(22, 16,32) 
СОММОХ/8234/ НЕІСНТ (22,16,32), КЕО (22,16,32), 


00002600 
50002700 
90002800 
20002900 
500030929 
590003155 
50003205 
520003305 
50003455 
40003520 
59003655 
50003752 
00003800 
20003900 
25954555 


MAANA An 
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59004325 
500904455 
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590046552 
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592004800 
90004955 
590052525 
20005255 
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ARANE RNA 
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η ww М 
25505620 
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399093807 
55992579 
552006255 


00006-50 


F^ 
м ы 


*** CONSTE 


(0 OO OO000009000000000000000€000 


€) €) C) о О О 
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good 


OO O 


SALE EN. 


νῷ EEE EE Eb EE EE EEEE EE EE EEEEEEEEEEEEEEEEEEEEEEEEEEEEES 
SAS. CALCULAT OX & 


&&&&&&&&G&& oS SS SS SR Sa SS SS SS E SEE EE SESS GE EE ESSE EE SS SS aS SESS SS 


Ne 
ч. тм 
ΣΝ. N 
ات‎ -^ ^ 
Жазса Өту; ow 


νο ο ae NS = 


ο =. 
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| AEFERENCE J220CI2YV (СИУ5) 22906200 
*** CONSRA : TA**3/ (RA*CP*U0*H*4) 20006300 
*** NTRWR NTREAL/NWRITE*NWRITE 90006400 
*** NTRWA NTREAL/NWAL-*NWALT 00006500 
*** HCONV SEAT TRANSFER COEFFICIENT ON THE AMBIENT (3TU/H.FT**2K) 00006600 

90006700 
00006800 
00006900 
*** RAD,H: XADIUS OF THE CYLINDRICAL AND SPHERICAL SECTIONS 00007000 
CYL : LENGTH OF THE CYLINDRICAL SECTION OF THE TANK 0000724 
axe NI : .OTAL NUMBER CELLS IN THETA-DIRECTION 90007200 
NAI : R-DIRECTION 00007300 
NK : Z AND PHI-DIRECTIONS 00007490 
МА : FIRST NUMBER Z-DIRECTION, ALONG TEE CYLINDER AXIS00007500 
NB : LAST NUMBER Z-DIRECTION, ALONG THE CYLINDER AXIS00007600 
*** HSZ(1,-),2S2(1,2) FIRST AND LAST COORDIANTE ο ο ООК ЕЕ 00007700 
IN X-DIRECTION (IN DIMENSIONLESS FORM) 20007800 
Ң52(2,:.),1452(2,2) FIRST AND LAST COORDIANTE OF HEAT SOURCE 00007900 
IN Y-DIRECTION (IN DIMENSIONLESS FORM) 529008000 
HS2(3,:),3SZ2(3,2) FIRST AND LAST COORDIANTE OF HEAT SOURCE 00008100 
IN Z-DIRECTION (IN DIMENSIONLESS FORM) 00008200 
00008300 
*** ICHPB() STARTING NODAL NUMBER FOR SOLID IN THETA-DIRECTION 90008400 
ЈСНРВ () R-DIRECTION 00008500 
KCHPB () Z OR PEI-DIRECTION 90008600 
απ ΝΟΗΡΙ () NUMBER OF NODALS FOR SOLID IN THETA-DIRZCTION 00008700 
NCHP J () R-DIRECTION 00008800 
ХСНРК() Z,PHI-DIRECTION 20008900 
ЧтиХхинлнххинин WF FF HF YF YC YF X OX X oX*X WOW *- IF HY HF N YF X m oX OX ox o0 o Wo o YF k XX X. ;. UC YF YF N N O N N YF KN E N EF E 00009000 
open(2`, `le=r' input. oa: Ss αι οσο ος ) 
¿&&&&&&&&&&&&&&&S&S&&&S&&&&&&S&S&&S&&&&&&S&&&&S&S&&&&S&&&&&&&&&&&&&&&&&&S&S& 00009200 
INPUT САТА & 00009300 
& EEE EEE EEEEEE ESE EE EERE EGE EEE EE EE EE EE EEEEEE EEE EEEEEEEEEEEEEEEEEES 00009400 
write<6,*)’callinem@iecst’ 
CALL 259097 00009500 
00009600 
& EEE EE EE EE EEK EESE EEE EE EE EEE EE EEEEEEEEESE EE EEEEEEEEEEEEEEEEEEES 90009700 
GENERATE GRID SYSTEM & 20009806 
&&&&&&&&&&S&SsSsS6S&S&&&&&&S&&S&&&&&&&&S&&&&&&&&&&&&&&&&&&&&S&S&&&&&&&&&& 00009900 
Wrice(€,") "саттен Е; 
CALL 63-2 29901025256 
¿001 
сзізфаәнйшаспсппавіфцпаинсиппаясцизфалфи фф Ит жекжат Т іЗі Ж физапплпвгпа 00010250 
КОМЕ RZAD VIEW FACTOR INVERSE MATRIX E 29910322 
HERAT RAS TTOTSR SH Te REA eee Te EH HL THH HHH HHH SHH HHH RH H RA He eezeesess 901048 
cpen(..,llle-'v'ew.ca2-.' Όταν ο- а 
CORSA i. 59 : 
са ος 7-250 NO 
225.τεϑα{--..1τ) KC ."- 
ο ο {.) 502019959 
20011229 
80566566555555855555555555555555555555555556555555555555555656666 20011222 
ENC 2425222 ҮЗЕ πο = Ж & 2001258 
888555555555556555555555555555555555555555655655555565565556 6666 200077227 
ο δα "сауда со 


2001:429 
900125222 
20011620 
20012752 
920222 
00012955 
200512552 


0991244 
700122525 


ΔΛ ^^ 
eL 


252522422 
59901252559 
59912622 


p NTMAXO HAS THE MEANING AS "NTREAL" WHEN IT IS READ FROM 
ΘΗ ТАРЕ. 


(y (>) 


ουτε .Gi. TMAX) Go TO 303 
NTREAL =NT+NTMAXO 
TIME=TIME+DTIME 
XTIMES=TIME*H/UC 
E c jint (xtime) 
'twrizzjint(twrirte) 
ES κ] 'time in secondss',xrtime 
write(6,*) 'int time=’,nxtime 
write(6,*) ‘int time for writing=’,ntwrit 


CE EEE EEEE EE EEEE EE EE EEE EEE EE EEE EEE GEES EE EEE E EE EEEE EEE EEEEEEEEEEEESE 


> CALCULATE THE TRANSIENT HEAT INPUT & 
- NOTE I= 1 IN PARENTHESIS, THE BURN RATE IS CALCULATED & 
2 SY TET PRESSURE CURVE. ir EQUAL TO TWO, THE BURN RATE & 
с Menve .S EITHER GIVEN OR ESTIMATED & 


555555555555565555555555555555555555555555555555555555555556565666 
мгісе(6,%) ‘calling calq’ 
CALL CALQ (2) 


к" START CALCULATION 
«ΤΕΕΞΟ 
v sERM=0 
ve TERM=0 


Ex THE UPDATED TeO{(I,-,K), CPD{(I,J,K),RPD{I,v,A) 


(ЭО 


20 48 K=1,NKP1 
20 48 J=1,NJP1 
20 48 I-1,NIPI1 
EU, -,K)sT(I,-,K) 
E 2, =C, K) 
SED(-,-,K)9R(I,-S,X) 
meen, 5, X)=U(T, 5, KX) 
wets, Е)-УС(СІ,2,5) 
r, O K)=W(I, ,X) 
ΝΕ 
29 CONTINUE 
ESERM-ZJITERM-*! 


τις: 


2555605058855555565566656555556555555555555556565555555565555655556566566 


- ж» р ج‎ ум т = am -- 9 


- ο -- C RAS2ATYTICGN SZAT FLUX AT ZVERY NRAD TIME STEPS 6 
SS SS SS SS SG SS SES SS SES GS SR SS SS SS RS SES SG SS GS SS SS SS GS SS S SS SESS SS SESS S SER 
NRAD = 2 


-г (МОО (МТ, МАКАО) .МЕ.0) СОТО 4000 
CALL xADHT (7T4WALL,VrzMXC) 
40006 CSNTINUE 


еххх 
Б ZALCULATE THE TEMPERATURE 1 
CHHAR ST RSESSTERRKERTRRARESRERRRRTSKRAKRHET THRE CKHHHREKHHR RETRO TR AR RR 
mueeee (6,7) ©"Saliing caiz’ 
PAL. САТ 


185585888855656555555556555555555555555555555555555555555555565656666 


2 -АШС.-АТЕ 25 5МОКЕ CONCENTRATION & 

CERRAR S RR S SA RSS RSS SS SR RR RSS RSS SESS SE SESS SS ESSE SS RSS RSS SS SS SE SS RR RRG 
EE -e(5,") “са:::гс caic' 
BALL CALC 
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σον  ς) AND VPD(TI,Z2,K) FOR THE USE "OF CALVIS AND Su (1, —, K) 


nna 
M M 2 


30012800 
122 22 
20023226 
00013200 
20013200 
0001330 


29013426 


00013500 
90013600 
5001375060 
20013800 
20013900 
99014059 

90014190 


00014200 
00014300 
90014450 
20014520 
90014600 
000147 

23914800 
22014900C 
29615259 


RAMS s ^^ ^^ 


290152525 
990153900 
09015495 
00015500 
90015620 
00015750 
20015820 
20015906 


Алғ” FU^ 
ب‎ MU a О v w w 


9091627252 
50016255 
2901630 
20016552 
90016259 


ARAYA ρα 
22016555 
m m ч BAA 
w V A < “νην 
A AA? fo A 
AnA” ο ο 
[ο жч лм а οσο 
a ed 


99: l-39 
205: 725 
20017320 
52221742 
ААА л 
ымм дом 


мее те 
ММА 2 ον ب‎ 


29017 
20027822 


20221429 


292000 I2i,N PM 

JO 2000 K-i,NKP1 

ЕИ К) ОТ ОТСОС ЕТС ГЕЕВ 

2000 CONTINUE 
CESSES MEM 
S LOBLE PRESSURE CORRECTION FOR ENCLOSED TANK AIR % 
CEREEEEEESERE EERE SESEERERELESTETELESELELERERELEEBEEEESESEEEEEESES 
woite(6,") ‘calling gloss 
CALL GLOBE 


CECECEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
CALCULATE THE TURBULENT VISCOSITY ΑΝ ἘΞ. 8 
С @@@@@@@@@@@@@@@@@@а@@ @ @ @а@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@ 
write(6,*) 'callišmgmcalvis: 
CALL CALVIS 


о 


C ww ww ww ww ww ww ww w x x x w W x É W w w x w x W w x; W W x W w Ww W w ee ee eee er x. x x E 
C CALCULATE IRE DENSITY т 
C ww www xw x x x x w; x x x< x x W EE eee eee ee eee eee eee eee eee ee Ἡ Ἡ Ἡ Ἡ 

DO 100 J=1,NJP1 

0 І-1І,КІРІ 

DO 100 K-1,NKPI 

LE (NOD(I,2,K).EQ.1) GOTO 190 

AAAA-BUOY*UÜGRT*HEIGHT(I,J,K) 


А(Т,ш,К)=(ООСВАТ*Р(1,2,К)+(1./ЕХР(АААА›У УУТ Г Н И 
100 CONTINUE 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
S CORRECT CONDUCTIVITY OF THE SOLID S 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
ІЗ Νο PSG .S)VGOPO” 0 
write(6,") ‘calling soicon’ 
CALL SOLCON 
410 CONTINUE 


C % % $ $ % % % % $ $ $ $ $ $ $ $ $ $ $ $ % $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ % $ $ $ $ $ $ % % $ % $ % $ % $ % $ % $ $ $ $ $ $ $ 


C START PRESSURE CORRECTION ITERATIVE LOOP, IT IS TEE MAJOR $ 
с 2ART OF THE ERROR CONTROL ROUTINE 5 
C % $ % % % $ $ $ $ $ $ $ $ $ $ $ $ % % $ $ $ $ $ $ $ $ $ $ $ $ $ % $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ % $ $ $ % $ $ $ $ $ $ $ $ 
2 SREITERS2 
η eae EE а а @@@@@@ 
ς CALCULATE 222 LOCITY ο А БИТ ё 
©вгва@ввгавеаав@а2гваа@вававвавван п Ыса аа за СОО О ОООО 
wri.ce(6,*) "3422175 Ve OC шас 
I _ 252923555 
ALi STRESS 


(960 
x 
x 
x 


CALL CALV 
CALL STRESS 
якини x v. WW WW FF 
CALL CALW 
мтіте(6,") "ч“Гап(і)-” ыгап(!) 
С CALL STRESS 


w ww Yo* * *X Wo*X ow wo wow Ww ww Ww 


ΩΩ 
№ 
x 
x 


eiii Le ss sa S ы э 55555555555 
S wASCuULA:S «πΞ “πμ ΤΕ, τ -- & 
CSSSSSSSSSSSSSSS 555555555555555552555555555555555555555555555555 

mote (6, ο σαν ος сари 

CALL CALS 

ЕДЕН 575255 


2%%%%%%%%%%%%%%%% >5%5%%5%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


-- 


© ~2 SOURCE TIAM 15 LARGER ΤΠΑΝ 10.0, STOP 2ROGRAM % 
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50018800 
29018900 
595019000 
99019100 
50019290 
59019300 
529019400 


59019500 
90019600 
00019700 
50019800 
C0019900 


20020000 
00020100 
00020200 
00020300 
C0020400 
00020500 
00020600 
00020700 
00020800 
00020900 
00021000 
209021100 
00022200 
90021300 
50021400 
00021500 
00021600 


00021700 
00021800 
C0021900 
90022000 
00022200 
29022250 
00022300 
59022420 
209922500 
29022690 
00022750 
59022850 
29022920 


25923222 
22923255 
5902332 

5002345 ó 
0002355 

50023655 
520023725 


29023809 
20023500 
90024097 
5552415 

50024206 
902437 

οὐ 26450 


959243 Sov 
2252465 

25024756 
00024800 
99924906 


C %% % $ % $ % % % % % % % $ % $ % $ % % % $ $ $ $ % % % % % % $ % % % % % % $ $ $ $ % % % % % % $ % % $ % % $ % $ $ % % % % % % 


302 


c 


38 
39 


95 


23 


35 


58 


4C 


82 


— 


ZF (RZSORM(ITER).GT.-C0.0) СОТО 2020 


ШИГАРЗОЗМ(1ТЕЗ) 
EXU IX .-Q. 
ЗАМ =_:ЕҢ-: 


T 
πα ا‎ 


ИБЕЗСАӘМ (17238) . 589 


т/а 
+ Ы 


σο 304 
σπα ες. 2) GO 
SOURC==RESORM (ITER) 
GO TC 39 
PEARESCRM (ITER) 
GO TC 304 
SOURCE=RESORM (ITER) 
CONTINUE 
NKEITI(6,95) 


DO 23 X-1,NKP1 

DO 23 2-1,М2Р1 

DO 23 2-1,МІРІ1 

ου Σο XK) =T(1,J,K) 
Meets, ,K)-C(I,J,K) 
BED(C,.,K)-R(I,-S,K) 
СОВЕ o K)=U(I,J,K) 
eta, Ki=V(I,J,K) 
КОК) =и(:, 7, К) 
ES. .,X)sP(:,J,K) 
CONTINUE 
JUTERM=0 
EILER 
ШЕСО22 ам 
БЕ(ТІТЕЗ 
БӨКТІХСОЕ 
iF (JTERM 
TP (ITER 
CONT NS= 
227ЕЗУ-С 


~ TA ο» 
20 ЖАМ ο. 


το. ITMAK) 
E0. 2 GO 
2507. 


ТЕ GO 
E0. 7). GO 


NLS 
OO ERYS S TERM-+1 
ιν .Ξο 


S a 


12:(27:2У 


GO 


Eo) 
Ере 


ЕЛ 72 32 

BE. 

Ш) 62 Z=, NEPI 
EXC = NIP. 

ES -.,NIP. 
EU, X)-RPD(I,J,X) 


NUT X)-UPD(I,c,K) 
E r)-VPD(I,c,X) 
W(I,Z,Z)-WPD(I,J,K) 
E ZX)sPPD(I,-,K) 


MAATA % w = = = — 
Мыз ο < s < — 


ША 2:5 EQ. MAX) 
SS TO 295 

FIAT TRI. 

ο” ο ο ος we 


ο τς aar K) 
АЕО ,Х)=С2?С7(2,,К) 
EU ,^)=ВРО(,.,‚Х) 
wee, , 6) =GPD (2,0, K) 
Same, *.)=VPD(1,c,K) 
15, Z)=NPD(1, , K) 
6 Z)=P2D( ., ,K) 


TEE. 


2 AND: 


SORMAX) GO TO 49 
ΤΟ 5 6 


RESORM(ITERM])) 


ο 


SOURCE) GO TO 38 


σο το 49 
Το 35 


4) GO TO 29 


TO 58 


TO 29 


ayO WRITE (6, 95) 


70 41 


ΕΗ 


σο το 49 


tmm 
e ot 


20. 


. FER, RESORM(ITER} , SORSUM 
ESBMAT(I3X,'ITER-',I2,2X,' SOURCE-', F9.6,2X, ' SORMUP-' 


υπ 


σο το 302 


.AND. 


CERD NE: 


59,5) 


R, RESORM( ITER) , SORSUM 


2) 


σο 


T° 


6 


1 


25025222 
00025.25 
52025220 
25025325 
00025400 
00025500 
90025650 
20025720 
292025800 
20025900 
00026000 
05026102 
00026200 
00026300 
00026400 
90026500 
90026600 
90026700 
00026800 
00026900 
00027000 
00027100 
00027200 
00027300 
90027400 
50027555 
52027600 
92027722 
09027800 
00027900 
50028555 
200282252 
00028200 
00028300 
05028400 
92028522 
99028600 
529028752 
20028800 
25028900 


525229252 


ο... 
225292255 
52229322 
252529452 


ARA ет 
20228570 
Fr INR 
ммо 2 № ом 
= Fx N m = — rx rx 
моч СЧ бым 


RAK ғ” 
чы мы ы 98225 


20029955 
202035222 
50032:522 
550325225 
59530322 


AAA νο 
ww wn ws 


99935522 
225535655 


9903070 
20530826 
29052922 
229222522 
AAA ^ a Anr 
w < — w ` 


^ P^ m - 
ο... 


AAR Prater AN 
“.. < w w x 
AAA a 
ا نا ا‎ =“ + w 
AAR "RUN EN 
Í ` e x ` 


922222522 
ACIE 
ммм - fw 


43 CONTINUES 
τοτε 0. 17МАХ) GO TCO 49 
іс ((2ТЕАМ SO. ὉΠ. -FS ASNE nE] 
CORTOS - 

49 CONTINUE 


πει τας τετ Ες 


CHHHHFHRR ER ER STARTS HERE HH RR STH HER EHH KHEKH HERSEK EHH HHH R RR RT TTS TE ee 
= GOmTO. TERE PRESSURE TRACKING SUBROUTINE (eRe ioe # 
E RESULTS Ll: AT TEE RIGHT SIME INTERVAL # 


HHHHRERFHHHRHHHHHHRHHPHHHHEHRHHHHHHHHHHHHHHRHHRHHRHHHHRRHEEESHRRRRE 
Wrtite(o,*)9'call'neMbtrack. 

00032900 

CALL PTRACK 


ТЕ (MOD(ntreai,NWRP);EQV.O CALL OUT 


Addi MM 35 
FIND TEMPERATURES AT THERMOCOUPLE POINTS AND PRINT CUT % 
IF AT THE RIGHT TIME INTERVAL 5 
C % $ $% % % $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ % $ $ % $ $ $% % % % $ $ $ $ $ $ $ $ $ $ $ $ $ $ % % % $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ 
ifstntheo.eg.O)' goto 2422 
CALL TC? 
IF (MOD (NTREAL, NWRP) .=Q.0) CALL OUT (2) 
2422 CONTINUE 


IF (MOD(z^xtime,ntwrict).EO O) δη οὂ. 
29034100 


S -F(NTREAL .20. NTREAL/NWRITE*NWRITE) CALL CUT(3) 
. S05 CONTINUE 


ІК ((ХТІУЕ-ОТІМЕЗНИИО) GS NA ЕО ТОЙ 


O O 


ΒΗ ο ІТ 

123 FORMAT(' RESET =) L10) 
iTO=IT 

τ LEET) CALE Our ts) 


QOaanaag 


* ** W www xww x x. Xo x. x x. x x x k WE x Z x x x K x x Kk X ok Wo o o k K Kk K; KR KARR ERR KR RE и 
mM КЕСЕ? 252 OLD TIME VALUES TOD, RCD, Ор, νου." 


D0 305 K=`,NKB1 
ο Ξ-,».6) 
DO SOS 2. NIP 
TOD ааа 75 
τν ph) ON ey 
nOD ISSAC CD 
SOOT SSC, <) 
МЭРИИ) Уос 
NOD Clg, 5) H=4 (1, 2, 4) 
POD (I οσο) 
5305 CONTIN 


q 4 ө a - ее «ее » 


THIS WRITINGS 16 Е PLOTTINGS E 
11)]))1:j1]] ТТТ ИТТЕ 
iF(NTREAL .NE. NTREAL/NTAPE*NTAPE) GOTO 522 

IWRITE-:2 

WRITE (9, *) 
& TIME,NZREAL, 7, R, U, V, W, P, CPM, COND, VES, ORNET, 2226 СЗОКНЕ ЗИ 
& H,TA,CC,CONDOC,V:52, 2HOO, ND Nona Noo CET EE. 
5 ХС,ҮС,22,Х5,Ү5,25,2ХХС, ЗУҮС 5022 ХР S n ys 

WRITE (6,7) ‘THE TIME WHEN THE DATA WAS STORED ON 373% 7§:° 
& XTIME 


0 0000000€0t€0€0 


“xx WoW WOW W t K w x x x w RF N FE FE w Ww w N € WOW K Ww Ww X W W W W W RRR RRR RR RRR RRR RRR KE 


() 


522 СГ 5 


12 


.OR. JJTERM .:2. 2) G0 NE 


эмо, 
т, А2” 


22931800 
22031900 
25232000 
29932190 
22032200 
22032309 
29032400 
59032500 
29032600 
09032700 
29032800 


20033000 
90033105 
20033200 
20033300 
09033400 
00033500 
20033600 


00033800 
50033900 
00034000 


55034200 
52034300 
22034400 
20034500 
09034600 
00034700 
52034800 
90034900 
20035002 
22035100 
2203520С 
22035330 
22035405 
25035505 
22035600 
22035705 
50035800 
25032210 
25236005 
29936099 
22536255 
25786807 
22036490 
2559536505 
5003666060 
22036752 
59036800 
22036900 
22037555 
22031554 
ΞΟ ΣΕ, 
2959308 

2253722 


22037322 


20937609 
229311 
σου] 
00317} 
55853800652 
2593886 
22238280 
252238355 


* * x 


OOOO O 


O 


222 


9225 
956 
557 


393 
ο” 


11 
c 


C wx. 


www... .. .. .. .. .. .. . k... . x... .. .. . . . k. K X K K. k. . t... OX X OR o OX OX .. 
КОШЫ LEFT(IT) 

Motel. τς. «ΕΡΤ GO TO 166 

*o* Wo*- * wo* OX X o WoW o OR OR ORO RR e E E OR k k. . k. k . k k. Kk. Kk. . Ἁ 


ZS USED TO CALCULATE THE CPU TIME REMAINING AT NPS 


Ισ ο . СЕ ВОВ GOTO 66 

222 k=i,nkpl 

222 1=1,п1р1 

ο; =. nal 

ШЕ(9,555) LU 0, K W(i,j,K) ,V(i,j,K) ,w(i,j,k) 


write (9,555) 
continue 

write (9,556) 
write (9,556) 
write (9,557) 


E ОК εππι!,,»,,τ),.εοπαίτ,.κ),νιο(1, j,k) 


cime,qgr,acorrt,pml,pm2,XxXXXX 
Hn casu» condO.visOPrhoO0 
pnerear cm nkemnipl nj)jply/nkpl,niml,njml,nkmi,:tert 
 Ш17е(9,556) хс,ус,2Сс,Х5,Ү5,25 

write (9,556) dxxc,dyyc,dzzc,dxxs,dyys,dzzs 
format (4 (3x,e12.4)) 

format (6(1x,e10.3) ) 

format (1114) 

REWIND 9 

GO TO 300 

CONTINUE 

CONTINUE 


ШЕИТТЕ(6,1111) 


FORMAT (2X,’****"** THE MAXIMUM TIME HAS BEEN REACHED ******' 


‚ 18) 
GO TO 172 


6234567 


wx w... . . x x... `. ` "`..." EERE EE Ñ 

c 166 IF(NTREAL .NE. NTREAL/NTAPE*NTAPE) then 

do 223 x=, nkpi 

250223 `=.,nipi 

БО 223 -^-.,njp: 

WRITE (9,555) LO, KR), (2, 5, X), V(1, j; K) , w(i, 5, K) 

EE 2225) 0(.,5,«),cpm(i,.,*),cond(i,5,k),vis(i, 5, «) 

continue 


223 


C 


2020 
(72 


ж () 


N 32 x x * q 3 93 


write (9,556) 
write (9,556) 
write (9,557) 
ep ace (9,556) 
me (9.556) 
REWIND 9 


X * € *o- RRR OW WOW eee eee eRe eee RRR RRR Ree Ree к 


SImBRGP,GCOLI. Dm, pm2,XXx*Xx 

^, Tā, U0, cona0, vis0,rno0 

гссеаі, к, nipl, Mae ο ο τς nl,nkxml,l:cerr 
κα VCC KS, VS, 25 

SXXG,CYYC, C222, oXXS, аууз, Gzzs 


” 
к; Dn 


GOTO 172 
CONTINUE 
mz (6,5) ’ 
CONTINUE 
05 

END 


RESIDUAL MASS IS LARGER THAN 10.9, 2ROGRAM STOPS’ 


Í s É;ÑÉ.....LÚI..Ú.....R TOTL .IOI.Ih .ULIL IIIIIII.I9I.L..... .... .......LLLL...LULUUUUIiILIIIIIIIIIIIIIIILIIILiLIiLIIIIIIiIIIIIKKKUIllIIpiIIIlIIILlI lll III li n! 
кк 
мн *o*X WO* * * WOW €m * WO* *o* ИЛИ БАБ *-oX OX o *o* *oX mOm mO* OF O N * Ok I O O E FF *ow om XX X wx 


ου NES INPUT 


Kw o *ow * απ T; x x. x x πΧ x. x x x x x Úx E WW V x x... x... . YF eee Re Re W. 


Peeper ov SROULTINE SETS 22 
VARIABLES ARE: 


προ σου VALUES TO BEGIN THE PROGRAM. 


ARUN = EN EQUAL 79 ONE READ FROM THE 

| Mog VAR SA ELSE RON CES CL 
NERE = NUMBER OF SOLID PizCES 

NWRP = MBER OE TNE SUES CORLISS ON TRE 


2APER 


73 


90038400 
90038500 
00038600 
00038700 
90038800 
00038900 
00039000 
00039100 


90039200 
00039300 
00039400 
00039500 
00039600 
00039700 
20039800 
00039900 
00040000 
20040100 


m fN rN AIAN 
ммм έν 


25940855 
55940950 
99041905 
29041155 
90041200 
29041300 
50041455 
000415550 
20041600 
29941752 
20541809 
29041990 
20042005 
"0004210 
"20042205 
"20042355 
"270042400 
"200425205 
"292042600 
"20042709 


4» 5 κα қ қ ая X N 35 9X M MN Яя MN м y 


С) 


©) 


NTHCO 


NUMBER OF THERMOCOUPLES TC PRINT OUT 


"220428255 


ТМАХ = MAXIMUM TIME ALLOWED (REAL) «200429255 
TWRITE = SECONDS IN REAL TIME TO PRINT THE "20043552 

P,V,T FIELDS ON τω "00043-22 
ТТАРЕ = TIME INTERVAL TO WRITE ON THE TAPE "00043255 
ЭТІМЕ Ξ TIME STEP (DIMENSIONLESS) "200433252 
HSZ = HEAT SOURCE SIZE, USED TO CALCULATE «202043425 

THE VOLUME OF THE FIRE CELL "00043500 
ICHPB - FIRST SOLID NODE IN THETA DIRECTION "20043677 
JCHPB Ξ FIRST SOLID NODE IN R DIRECTION "20043722 
XCHPB = FIRST SOLID NODE IN PHI DIRECTION "20043825 
NCHPT Ξ NUMBER OF NODES IN THETA DIRECTION "20043920 
NCHPJ = NUMBER OF NODES IN R DIRECTION "20044256 
NCHPK = NUMBER OF NODES IN PHI DIRECTION "00044100 
CX, CY C z - THERMOCOUPLE POSITIONS IN THETA,R,PEI "00044209 


WOW OW OR X Wm OW . . . WD Wo WOW WoW oW WOO e eee ee ee YY L LOO 


#2. 


#6 2 


20 


"4, 


COMMON/24/XC(93) , YC(93)Z6(93), XS(93) 5 YS 0939 ZEE 

& DXXC (93), DYYC (93) ,DZ2C (93) , DXXS (93) , DYYS(93) , D22S (93) 
COMMON/BL1/DX,DY,DZ,VOL,DTIME, VOLDT, THOT, TCOOL, PI, Q,QR 
COMMON/3i7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 


& ,NIP2,NJP2,NKP2,NA, NAP1,NAM1,NB,NBP1,NBM1,KRUN, NCHIP, NJRA, NWRP 


CCOMMON/3i12/ NWRITE,NTAPE, NTMAXO, NTREAL, TIME, SORSUM, ITER 


^^ 


55044455 
00044522 
20044629 
20044725 
00044800 
09944956 
50045225 


COMMON/3Li4/HCOEF, TINE, CNT, ABTURB, BTURB, VISL, УІ5МАХ,ОСОВЕКТ,РМ1,РМУ2060045:255 
CMMON/SL16/ CONST1, CONST2, CONST3, CONST4, CONST6, NT, 70, S, UGRT, BUOY; 2005525 


vM 


6  C20,PAT,CONDO,VISO, RHOO, ER, TR, TA, DTEMP, THRITE, TTAPE, “MAX, GC, RATRg0S5 a 


CoMMON/3.20/81G1;(22,.6,32),S1G12(22, 160392) mST G2 D 000 290454255 
6 ,51513(22,16,32),51023(22,16,32) 2 eee 29045522 
СОУМОМ/ 3222/ІСЧРВ(106),КСНРІ(19),ӘСНРВ (10), КСНРОТТОУТЕСВРВЦИЯИ 20045625 
& NCHPK (1C), TCHP (10),CPS(10), CONS (10),WFAN (20) 59645755 
COMMON/SL.31/ TOD'(22,16,32),ROD(22,16, 392] 2? POD( 22, oe 20245822 
& , 00D (22, 16,32) ,U0D(22, 16,32) , VOD (22, 16, 32) (Wen 22 ace 22045955 
СОММОҺ/ 8232/ T(22,16,32),R(22, 16,32) 72227 owes 25046525 
& ,<(22,16,32),0(22,16,32),У(22, 16, 32) / 22716752) C0046 200 
С2УУ0К/5233/ ТЭр(22, 16,32), ЕРр(22,16 2 ЕБРР СЕ 09046255 
& ,ӘР0(22,16,32),09Р0(22,16,32) ,УРр(22, 16,32) ИРОЦОР 22046355 
CUMMON/3234/ HEIGRT(22,16,32) "REQ(22 01609708 590046455 
& SMP (22, .6, 32), SMPP (22, _6, 32), (22, os 20046522 
5 Dv (22, 16,32), DV(22,16, 32) ,DNi 22 o 22046625 
COMMON/3L36/AP (22,16,32) , AE (22, 16,32) ,AW(22,16, 32) , AN (22, 16, 3211] ο... 
& AS(22,16,32) , AF (22716, 32) , ABU22. T0, 2200 29046855 
& 59 (22, 16,32),62(22,:6,32Уу ШОР 25546222 
COMMON/3-37/ VIS(22,:6,32), COND(22,16,32) ,NOD(22,16,32] , RIWALL (57916 ΑΛ 
& ,-2M(22,26,32),HS2(3,2) , NNHS821(22, 160 εν, τ; 25547222 


СОУУОК/ 5238/КТНСО,СХ(12),СҮ(22),С2(12075 ІН ЕЗЕН ЕЕГ 


προ ον ον ο. 


INDICATE 2E -RER KRUN O C jp 


κε. "I ARUN NCH? NWRPI N ACO 


АзА2 iN SATA SET : - 6 БАТА 
RZA2(2-,") CMAX,CWRITE, SAPE, DTIME 


Seal IX DATA FOR HEAT SOURCE 


AAR AA 
оос г 
ANN PTAA 
« 
ουσ... 
AAA - p» F^ m 
2926 = 
Ann ae 
wwe T a w ме 
“AAP Z. 
294612 


— w x 


AAN een 
220400 . 


w чы 
^^ προς 
ουσ... - 
Ао отео 
η 7 بے نے‎ мч 


τα AASA 
22548 oS 
AAR S eS 
м 8 


22548222 


READ (2-,") Н652(1,:2),Н52(1,2),Н52(2,1),162(2,2),552(3,:), 557 ss 


о о аы ч سب سوي‎ 


WRITE(6,29) HSZ(1,1),352(1,2),HS2(2,1), ASZ(2,2 ISZ LU 


FOAMAT (/,2CX,’'!EAT SOURCE LOCATION IS IN CEZ VOLUN EOC D 


δν. E ROM 
la- Ai EROM 
J; SK, EROM 


m gp ὧν m 


"NSiONAL W.TH RESPECT Ὁ παλιν. 


‘,28.4,° 70 ”",F8.4&,' NX Dea ree ae 
' 28.4,” 70 56.1, T N oe 
28.4," 07 РВ. АИ ТЕЕ ЕСИ D 


74 


22248422 


νη 

25268222 
22048622 
222-855 
25048855 
29048955 
290495205 
ARA A TE 


=ч м # + = = 
22563258 
29959261 
25249255 


AAA ا‎ ΤΝ 
UGG > səs, 


ою 


c) O 


ж (у) 


x x x x X xx x N κ κ κ X» и нч x » κ κ 9» x N я и Яя 4 κ 


ESINT w. THE REGION BOUNDED BY SOLID’ 
00 19 N=1,NCHIP 
READ (21,*) ICHPB(N),NCHPI(N),JCHPB(N),NCHPJ(N),KCEPS(N), 
& NCHPK (N) , TCHP (N) , CPS (N) , CONS (N) , WFAN (N) 
WRITE (6,10) N, ICHPB(N),NCHPI (N) , JCHPB(N) , NCHPJ (N) , KCHPB(NI), 
& NCHPK(N), TCHP(N) ,CPS(N) ,WFAN (N) , CCNS (N) 
BELFORMAT (2X,’N= /,12, Ἱ περ "/ 12 7 КЕНРІ- %“,:2,” JCHPB= ‘,i2, 
ЕЕ - 7772, © KCHPB= ”,І2," ҚМСНРК- ”,:2, !” ТОПР- ”,28.5, 
&’ C2S= ο ο, АЕ ο ο ια СОМ6е ”,212.5,/) 
BENCONTINU 
i16 CONTINUE 
ШЕІСЕ(6,") 'nchip=',nchip 
ШҮЕШПЕПСО.еа.0) goto 119 
5 iNPUT THYERMOCOUPLE COORDINATE 
EN TERMS OF X(THETA), Y (RADIUS) ,Z (PHI) 
ERINT * 
ERINT *, ' THERMOCOUPLE POSITION INTTERMS OF THETA, R, PHI’ 
PRINT * 
DO 119 I=1,NTHCO 
БЕ) (21,%) СХ(Т),СҮ(І),С2 (Т) 
Imm - (6,*) I, CX(I),CY(I),CZ(T) 
110 CONTINUE 
SS Continue 
RETURN 
END 
SUBROUTINE INIT 
ww 


WOo* * cm x € XX Ye E E UR OX UE X 0 ORE K W k K k N N N K Y WN E k K W W W W W X. X k X. X... WD OW E WX ox 


SIS SJBROUTINE iNITIALIZES THE FIELD AND CONSTANTS WITH RESPECT 
TO INITIAL START OR RESTARTING CAPABILITY. 
VARIASLES ARE : 


TIME = DIMENSIONLESS TIME 

JO E CHARACTERISTIC VELOCITY (2 FT/SEC) 

= = CHARACTERISTIC LENGT! (RADIUS(9.6FT)) 

TR = TEMP IN DEGREES X=ELVIN 

БА = TEMP IN DEGREES RANKIN= 

VISO = REFERENCE VISCOSITY (NONDIM) 

VISL = MINIMUM VISCOSITY (NONDI™M) 

VISMAX = MAXIMUM VISCOSITY (NONDIM) 

=R = RADIUS IN CM 

CONDO = REFERENCE CONDUCTIVITY 

eS - INITIAL SMOKE CONCE Ne ON 

NORA = BOUND Or RADIAT ON N 73 SS RECTION 
LOCATED ON THE INNER SOLID BOUNDARY 

ZCONV - HEAT TRANSFER COEFFICIENT 

ЯСОЕР = DIMENSIONLESS HEAT TRANSFER COEF 

CONST? = USED TC NONDIMENSIONALIZE PRESSURE 

RHOO = REFERENCE DENSITY 

το = GRAVITY CONSTANT 

3U0Y = BUOYANCY FORCE CONSTANT 

“GRT E PERFECT GAS LAW NONDIMENSIONAL CONSTANT” 

СРО = REFERENCE SPECIFIC EZAT 

NWRITE/ = NONDIMENSIONAL FORMS C? TXRITE AND 

NTAPE TTAPE 

MATRICES OF THE FORM 

9 = DIMENSIONLESS PARAMETER AT OLD TIME 

< Ξ DIMENSIONLESS PARAMETER 

E» - UPDATED DIMENSIONLESS PARAMETER 

NRERE THE PARAMETERS ARE 
V, W E VE OCT ND THETA, 3 , 25: 2IRECTIO) 
ος = TEMP, PRESSURE, AND SMOKE CONCENTRATION 


15 


5004960560 
529049756 
50049800 
50049900 
0005000C 
90050100 
909050200 
50050300 
00050400 
590505209 
90050600 


0005070C 
00050800 
90050900 
900519200 
00051200 
60051200 
00051300 
00051400 
00051500 
00051600 
00051700 
00051800 
0005190C 
00052020 
09052200 
0005220C 
90052300 
90052400 
60052500 
9005260С 
00052706 


KW ww xx w... x x. WN k x x x RRR RRR RRR RARER 00052800 


*00052900 
200053000 
90053-00 
"00065320C 
οσους. ο 
«200586056 
οσο e 
OAE ыу 
0005379 
. τος 
00053990 
"00064 200 
"29054-55 
"00095425 
00054300 
"0005440 
«00054500 
"00054600 
"ρα τος 
"000548060 
"00054900 
"00095800 
000 5 5 со 
00095299 
ΕΞ. 
"2205240 
00055522 
25902260 
πο η Do 
00055805 
99055992 
200560222 
22056222 
"70056200 


(} 


“ων γε ὦ Ξ USED IN PRESSURE CORRECTICN SUBROUTINE *00056300 

2? = CORRECTED PRESSURE (P') *00056400 

32 = SOURCE TERM *00056500 

SP? - TERM AT P NODAL POINT FOR BOUNDARY "00056600 
CONDITIONS *00056700 

АР = COEFICIENT AT NODAL POINT "00056800 

AE, AW, AN = COEFICIENTS AT PTS EAST,WEST, NORTH, "00056900 

AS, AF, AB SOUTH, FRONT, AND BACK "00057008 

SMP = RESIDUAL MASS SUMMATION OF NODAL POINT *00057100 

SMP P = LENGTH SCALE FOR TURBULENCE *00057200 

CPM = MEAN SPECIFIC HEAT *00057300 

VIS = VISCOSITY *00057400 

COND = CONDUCTIVITY MATRIX *00057500 

NHSZ = WHEN THIS VALUE EQUALS ZERO, THERE IS *00057600 

NO HEAT SOURCE LOCATED AT THE NODE "00057700 

NOD = IF EQUAL TO ZERO, LIQUID "00057800 

iF EQUAL TO ONE, SOLID *00057900 

3E - BEGINNING AND ENDING NODAL POINT FOR «00058000 

ІНЕ οι СТК «00058100 

REO - DENSITY AT EQUILIBRIUM *00058200 

МІРІ Ξ NODAL POINT IN I PLUS 1 (OTHERS SIMILAR) 00058 300 

XC IC ZE = THETA,R,PHI LOCATION OF NODAL POINT OF *00058400 

A CENTER CELL *00058500 

ӘХХЕ, 2216 Ξ LENGTH AROUND THE CENTER CELL *00058600 

DZZC *00058700 

XS, YS, 2S = THETA,R, PHI LOCATION OF NODAL POINT OF *00058800 

A STAGGERED CELL *00058900 

JAKKS OS = LENGTH AROUND THE STAGGERED CELL *00059000 

225 "00059100 

сх, СҮ, S 2 - LOCATION OF THERMOCOUPLE Ὁν THETA,R,PHI*00059200 

WOWOW EO WOW WOW WR OWO€ OX XX OX XOWOOW WOW OW OX OW WOW WO € ААА А EX WE uxuuuuuuuuuuuuuxsus**u«xxoOoog s5o300 
COMMON/R4/XC(93),YC(93),2C(93), XS(93) , YS(93) , ZS (93), 00059406 
& DXXC(93),2YVC(93) ,D22C(93) , DXXS(93)] Ρα ο Ρο. 90059500 
COMMON/BL1/DX,DY, DZ, VOL, DIIME, VOLDT, THOT, 160OL7 2 ye, ork 00059600 
COMMON/3L7/NI,NIP1,NIM1,NJ, NUP1, NJM1, NK, NKP1, NKM1 00059700 
& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 00059800 


COMMON /3222/ NWRITE, NTAPE,NTMAXO, NTREAL, TIME, SORSUM, ITE 


© ж... 


50059900 


COMMON/3L14/HCOEF,T:NF, CNT, ABTURB, BTURB, VISL, VISMAX, CCORRT, 2M1, 2M200060000 
COMMON/3226/ CONST, CONST2, CONST3, CONST4, CONST6,NT, JC,H, UGRT, 3U0Y, 00060100 
6 CP9,P<7”,CoNDO0,VISS RHOS SR TR) TÀ, ΡΤΕΜΕ, TWRITE, TTAPE, TMAX, GC, RAIROC060200 


COMMON/3220/81611122, 26, 32) ,SIG12 (22, 16, 32) , SIG22 (22, 16, 32) 22060300 
Е ‚51613 (22,16,32). 5ІС2З 22 ο ο 51G33 (22 20 20060400 
COMMON/3122/TCHPB(iC),NCHP2(10),0CHPB(10),NCHPU(1C),KCHPB(19), 00060500 
š NCHPK (12) , CCEP (10) , CPS(10) , CONS (12 ), WFAN (10) 00060 600 
СОММОК/3232:/ TOD(22, 26, 32), ROD(22, 16 32 EOD e 39060703 
5 1665122, :6, 3210652 2 ED OD (22,16,32), 70022,6 F 29060800 
SOMMON/2-32/ 7(22,16,32),32(22, 16 32) τν. 20060900 
& ,2(22,:5,32),2122, 126 32 0022 С 20061035 
COMMON/3L.33/ ο TON 16,32), ??D(22,:6, 32) 20061195 
5 ,cPD(22. 76,32) το... 32), V?D (22, 16,32) ,WPD(22, 16.023 20061207 
ΟΟΜΜΟΝ / 55,34 / HEIGHT (22, 16, 32) ,REO (22, 16, 32), 00061300 
& SMP (22, 16,32), SMPP (22,16, 32) , P2 (22,16, 32) , 00061400 
Ë DU (22, .6, 37) , OV (22,2 6, 32) swe 6m 00061500 
СОММОК/3236/АР (22,5, 32), АЕ (22,16,32) ,Ан (22,16, 32), АХ (22,16,32), 75967606 
5 А5(22,16,32),АҒ(22,26,321 АВГ oO enn, 50061059 
τ SP (22, -6, 32), $2 (22, 26, 32) , RI (22, 26, 32) 20061800 
COMMON / 5_ 37 / ας 32), COND (22, 26,32) ,NOD(22, 2€, 32) , RWALL (379) 00061900 
& 25-0225 πο, 252 (3,2) , NUSZ (22, 16, 32), R& SORM(93) 00062000 
ο ρωσ ° 2) ον (121 οσο 1ο τις 31 πο ο 00062103 
COMMON/3139/ALEW, PCURVE, CCNSRA, PCURM1, PSOUTE, CCORR, P=ERROR 200622С0 
SATA CRAV/3 2. // 55062300 
20062409 

INTRODUCE ZIVEN SERAN mais 35062307 
20062600 

TIME=C. 22062120 
TRETA/..8 00062800 
H=9.6 90062900 
ο ο 5ο ος 00206300: 


76 


V-SLsV-SO 


29063120 


VISMAX=400. *VISL 22063200 
ΕΞΞΗ: 39.48 20063320 
CONDC=VISO/PRT 22063405 
21=4. "АТАМ (1.) 20063500 
ΑΙΕΝ - 1.0 50063600 
Х2ЖА- 25 09063790 

25063800 

С TSE HEAT TRANSFER COEFFICIENT IS IN BTU/HR/FT**2/F 20063900 
хСОМУ-25.0 00064000 
ZCOEF=ECONV/ (3600. *CPO*RHOO*U0) 20064100 
EU -.9 20064200 

20064300 
20064400 
CONST 1=RHOO *U0*U0/ (GC*14.696*144.) 20064502 
CONST3=1.8/TA 22064600 
CONST4=H*30.48 20064700 
CONST6-U0*30.48 20064800 
NTMAXC=0 20064900 
20065000 
BUOY=GRAV*H/ (U0 *U0) 09065199 
UGRT=V2*U0/ (GC*RAIR=*TA) 20065200 
7COOL-:.0 20065300 
CONSRA=TA*TA*TA/ (RHOO*CPO*U0* 3600.) *1.714E-9 20065400 
50065500 
"RITE(6,200) TR,CONDO,VISO,CPO,HR,DTIME,HCONV 22065600 
202 FORMAT (5X, ‘THE REFRENCE TEMPERATURE AND THERMAL PROPERTIES’,/, 22065722 
EE SS, 7T = ,F10.4,'K, CONDO = ',E12.6, 20065800 
EE, 5X,'VISO - ',E12.6,* CPO = ',E12.6, 22265900 
ἫΝ. 2X, "RADIUS = ',£12.6," CM’, 20066025 
pum /,5X,DTIME = ’,£12.6, 50066105 
2, :X,'HCONV - ',E12.6,/) 22066200 
20066300 

NWRITZ=jint (TWRITE*UO/DTIME/H) 

20066400 
NTAPE= int (TTAPE*UO/DTIME/H) 

22006652 

ο... PRINT OUT INPUT INFORMATION 25566699 


e 


~ KER 
` 


#RITE(6,61) (STAR,I-21,90),KRUN, TMAX, TWRITE, CTAPE, NWRP 
moar (///,90A1,/,5X, ' KRUN = 2 12,/ SX 
EM VAX -',78.3, SE CONDS' , / 5X, ' TWRITE EBS, 
& ' ECONDS',/,5X,' TTAPE = ЕВ 3, SECONDS; 
& /,5X,' NJMBER INTERVALS OF WRITING ON PAPER ”, 15,/) 
~N-.-+ALiZE VARIABLE FIELD 

ШІ 222 2-.,52Р. 

ЕИ 222 .-.,N:IP! 

ШІ 222 Х-:,ХКР1 

ОВ (2 .-,К) =1 

ШІ, 2,5):1. 

ЕЕ |:,-,5)-!. 

ESOS ,-,X)20. 

> (1,5,5 (=0. 

EDO, 2,X)-0. 
Ek )-C. 


ay, X)=0. 
Iu -,-,X)20. 
<) =. 
Ec ,.,X)-0. 
КЕРЕ 5,5) =0. 
222(2,2,5)-0 
5,5) =0. 
КЕ. -, х) =0. 
Е. 5, 5) =0. 
ET -.,4X)20. 
ШТ, .-, 5) 0. 


T "n 


ТІЛ) 


525066755 
59066800 
22066900 
29967020 
259267522 
20967225 
29967355 
2226742 

77267522 
52967 625 
2226772 

72267820 
22567925 


252268025 


55568155 


55068 
20068302 
552568452 


22568555 


2206865 

25068702 
25568822 
50068900 
25569 25 
70969-5 

50069200 
22269352 
25269405 

22069522 


22569692 


о 


с) 


C 


SO je pee 
SECIS, K=O. 
ӘР(І,2,5)-0 
ЕЗГІ; 2, 5)-0. 
AW(I,c, X) =0. 
ВЕ, КЕ 
AN(I,¿, X)= 
AS(1,3,4)=0. 
AF(I, ,X)= 
АВ(І,72,5)- 
ӘМР(І,2,5)-0. 
SMPP(ISS,4)s0. 

Vis (i707) =VISL 
COND( 1, TC, K) =CONDO 
CPM(I, - XKX)=1.0E0 
Ρα δει  σξο 
NOUS K)eTOD(CI, 5, A) 
ТРӘ(І,2,5)-ТОр(І, 2, К) 
CODI; v AICO 

C I. J,K = COD (TL; J, K) 
CPD (l,o, 5) =COD(1, J, K] 
NHSZ(l,—-, A) =0 
NOD (I, , K) =Ü 


O O 


bO 


220 CONTINUE 


жия 


OETERMiNE THE POSITION CE HET ТЕКЕ 


DO 300 22, NI 
ОО 360 2-2,NJ 


CHANGE TO RECTANGULAR COORDINATES 


CHECK 722 525 7: iN HS CONTROL VOLUME, :: n №552=. 


XX=YC (5) COS (XC (2)) 
YYf=YC (νο ας 1) 


15 {ΧΑ.-..Ξ52{Ὶ:}).ΟΒΚ.ΧΧ.67.55211,.2 ΕΙΝ 
(ҮҮ. :.Ξ5δί2,-).ΟΚ.ΥΥ.6ι.-52!2,5; ΕΤ 3:5 
NESZ ,«..6)-Ξὶ 

ШӘЛІЗ>,2,2:)- 

сОАМАТ (2Х,22(4Х,14,2Х,14)) 

οσους goo 

CONTIN E 


n^ NS 
„мү τ... 


2523 NZ .SUZAMAL PAOPERTISS OP DECROBNONSOME 
асс 2202) GOTO Aig 
20 492 N-2.,NCHIP 
LS Te δν] 
poe NCH ITT 
oB-JCHPS(N) 
vETJBTNCZPI(N)-. 
Ας κο (N) 
NECKSTNenZA(N)-: 
БЕЛЕ” Si 
DC 405 ~ 3ے‎ EL] 
ЭО 455 X=X3,XE-: 
ο ο, ο σος κος ον) 
ο ο ο πο ος ο) 
NODI =)= 
S NU 
Co NL 

21522 


78 


00069700 
525069800 
00069900 
090700920 
990727722 
00070200 
00070300 
00070400 
00070500 
C0070600 
000790999 
00070800 
00070900 
00071000 
00071220 
00071290 
00071300 
00071400 
00071500 
00071600 
00071700 
00071800 
00071900 
00072000 
00072100 
00072200 
509272300 
20072490 
09072240 
00072690 
0997290309 
00072800 
00072990 
90073000 
99073100 
929073250 
00073390 
00073420 
2007355797 
20073600 
09073729 
00073800 
99073996 
0907446 
00072: 
22014286 
ου... 
22072225 
552976529 
29074600 
22074799 
200748С0 
605749920 
990750529 
093975585 
9599722 


AANA =ч y 
““. 22444 


997565 
22518 2AA 
MM E 


IILAN 
9275659 


2207572 
AAA 
м м لا‎ 58509 


22275 929 
9276-54 
2207622 
2275222 
20276322 
22076455 


O 


© 


жж 


x 


2297 


222 


9255 
956 
957 


O QO 


ко кә 


ÇM (J! 
OO 


FOR CONTINUING RUN, READ DATA FROM TAPE OR DISK 
ШОКЕ Уу τω. :) GO TO 9997 

бо тб 5 

Go 222 к=1,‚,пкр1 

ШЕ 222 i-i,nip. 

ЕШ 222 ;-1,njpl 


хеаа(9,555) 
хеаа (9,555) 
το... 

reaa(9,556) 
read(9,556) 
reaq(9,557) 


eerie), ally KI; Vli, j; K) Wi, jK) 
ерм, ЭК) сопа(ї, 5; ку, уіє6 (1, 3, К) 


time,qr,acorrt,pml,pm2, xxxxx 
xxn,xxta, xxuO,xxcondO,xxvisO,xxrhoO 
nounedlsnionjsnk.nip!,nJpl,nkpl,niml,njml,nkml,itert 
meaa(9,556) xc,yc,zc,xs,ys,Zs 

read(9,556) dxxc,dyyc,Gzzc,dxxs,dyys,dzzs 
EErmac(4(3x,ei2.4)) 

Шегтас(6(1х,е10.3)) 

mormact (i114) 

REWIND 9 

WRITE (6, *) NTMAXO 

CONTINVE 


ΓΙ OF NODE POINTS AND COMPUTE HYDROSIATI 
ESSSBRIUMGSENSITY НЕО (1,7, К) 


~ 
/ 
Lai 
- 

— 


ο 


ШІ ІЗ Х-і1і,МЕРІ 
ШЕ 13 і-!,МІРІ 
135 .-I,NJPI 


meee —*— (J) "“ЗІМ(ХС(І)) "бІМ(2С(К)) 
E Gcu-(l,J,XKX)-DHY 
ΝΞ 


229 J=1,NCPi 

ЕБ 229 I=i,NIP1 

20 229 X-1,NKP! 
AAAA--S;OY*UGRT*HEIGZT(I, 7, X) 
ЗЕО(2,2,К)-ЕХР(АААА) 

ШЕ(ЕВІХ .NE. ^) GO το 229 

ШИЕ 5, XK)=REQ(Z, 5, K)/T2ED (1, 5,4) 
300(2,2,Х)-8Р0(2,2,К) 

ER x) -RPD(L,, X) 


ENT IZ 
ШЕН А:12: 2,/,7,5,2 FIELD 

ES Х-:,к52: 

(222 Ј=1,ХЈр: 

Б 222 -=i,NIP1 

ЕЕ 2,Х)-ТОр(1,.2, к) 

Smee, 4) =COD(., 5, xX) 

EU -2.,X)-ROD(:,-,K) 

BU -,A)-UODI(I,.,K) 

ЕЕ ,,X)2sVOD(:,-,K) 

(2,2, Х) нор (7,2, К) 

г ου X)22C2(:,-,X) 

ES INL 

ДЕ СЕОЛІМС `S FOR DETERMINING TEE TZZzRMOCOUPLZ POSITIONS 


Bemecce N=.,2..2C0 
Ps O. ΤΕ Νορ 
MN (XC (2). 2-7. CX(N) . DIKET ICSE. CRIN GOTO 5202 


T9 


205276520 
22076690 
00076755 
20076800 
C00769C0 


00077800 
00077900 
00078000 
00078200 
9007862060 
000783009 
20978400 
20078590 
00078600 
00078700 
00078800 
00078900 
09079600 
00079100 
00079250 
00079300 
50079459 
20079520 
00079600 
02079700 
20279822 
20079905 
250806252525 
509085155 
20080250 


FS PS P^ ғғ 


... mire 


250894 5 
«ων 

o 
м м м Ч ми ы ών 


2228062 
ΝΔ πο N 
ммм іш. 


25080802 
25080922 
τος 


9OB νο 


ο... 
00822509 
AA а^ 
м ы лм 1259 


F rN x 
2228249 
anng“ BE 
м ма -— ` 


95982650 
SNB. 
5908-8595 
25082955 
22982522 
79082-52 
592982255 
20082322 
2208242 


ANNQSEAA 
м мы ы <5- 


©) 


O 


» » O 


€) O) 


J0 5003 J= 


NIEI 29982600 

-F (YC(J).LT.CY(N) .AND0.YVC(9+1) GB CY N '''..' 250827009 

5003 CONTINUE 50082800 
5904 22-4 25082900 
20083000 

2993005 X-1,NKPI 50083190 

τε (ZC(K) .LT.CZ(N) .AND.ZC (K+1) .GE.€2(N) )) СӘ ИЗ УВ 95283200 

3005 CONTINUE 29083300 
5006 KK=K 252083409 
NIHON, ISL 00083500 
NTH(N,2)2JJ 29983600 
NTH(N,3)= 50083700 

5000 CONTINUE 25083800 
20083900 

29084000 

RETURN 00084100 

END 09084200 
00084300 

90084400 

яая NENN N WO I IF YW VW OF OF OF OF YF YF OF JF I IF YF IF OF YC OF YF OF OF YF OF YF YF YW WN WN OF WF YF x; x x x. E W... x xx. ON X X € X 00084 500 
SUBROUTINE CALVIS 00084600 
00084700 

мал ААА ААА АЛА ЛЛ АИДА x. “Ç XL ON NONO NOUO OON NO ON ON XN NN 20084800 
THIS SUBROUTINE CALCULATES THE TURBULENT VISCOSITY AND UPDATES* 25984900 

SHE VISCOSITY MATRIX = 59085000 

Ww oW E WR OXON XN E E XXX ON OR XR RUE ORE XD OON OON YF WF OF WF OF OF YN OF WF WN WF WN WF YN YW YW E OF OF WF YF N E OE OF YE FF OE Ἡ Ἡ Ἡ Ἡ YE 5508571020 
20085200 

COMMON/R4/XC (93) ,YG (93) ,ZC(93) , XS. ο Stoop nm 20085300 

& IXXC (93) ,DYYC (93) ,DZZC (93) , DXXS (93) , OYYS( 93), D2z ees 29985400 
COMMON/BL7/NI,NIP1,NIMI,NJ, NJP1, ΝΟΙΜΙ ΝΕΑ ΡΕ l, NKM1 20085590 

& ,МІР2, NJP2, NKP2, МА, МАР], ΝΆΜΙ, NB ΕΕ NBM1, KRUN, NCHZP,NJRA, NWRP 2985600 
COMMON/BL14/HCOEF,TINF, СМТ, ABTURB, BTURB, VISL, VISMAX, QCORRT, 21, 2%290085700 
COMMON/3L.6/ CONSTi,CONST2, CONST3, CONST4, CONST6,NT, UC,E, UGRT, SUOY, COGBS600 

&y GEO, PRT, CONDO, vy 'SOPRHOO HR, IR, TA, рТЕМР,ТИКІТЕ, ТАРЕ, ТМАХ, СЕСИЯ ROO 085900 
COMMON/BL32/ T(22,16, 32) , R(22, 16,32) P (227 369752) 9086000 

& 0122, 16,32) ,U (22, 16,52) Νο. rs Soe 
COMMON/BL34/ HEIGHT (22,16,32) , REQ (22,16,32), 22086200 

з SMP (22,26,32), SMPP(22,16,32) PEN 2 15 ΘΙ. 50086300 

& DU (22, 26,32) ,DV(22, 16,32), πι ο... 20086400 
СОММОМ/ВІ36/АР (22,26,32), АЕ (22,16,32), АН (22,16,32), АМ (22, 26,22) ο... 

& AS(22,:6,32) Ας (22, 36, 32) AB ο 2. 220866009 

5 SP (22, -0,;,32), S3 (22,16,32), RI( 22 T 22986705 
COMMON/8237/ ViS(22,.6,32),TCOND (22, 16,32) ,NOD(22, .6,32) , RWALL (S79) Cee 

& 7CPM(22, 26,32) ,252 (3,2), NASZ (22, 26,22) p32 oon nee 525869952 
255870055 


ғ т `"... Y= 
w Aa D A; < — ry, — — 


SCA. 


SPECI:SY LOCAL TURSELENT CENGE SCE 
20 61: K=2,NK 
ХР2=К-2 
AD] =K-i 
XM1sK-. 
5М2-К-2 
ος οἱ SIN 
2Р2- 2-2 
221%- 
УМ] = . 
2М2-2-2 
JO Oli. -=2, N 
ΤΡ25 I- 2 
m 
ТУ2=1-2 
К το. 2) ο а 
EXE -O.N.) eS 
EN ο ο) το) ος. 


80 


SHAZARUAND ViSCCS. ο νο Е 


πες --- 


298775 
22285 -- 
22288 
2228745 
5558720 
2008760 
s | 
22087899 
52587999 
22288022 
20088:55 
52988209 
225288325 
22288402 
222885502 
255886605 
22588755 
22288822 
20288955 
258925 


5979995 
22289252 


22589322 


= 


е 
` 


` 


(} 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


DXP1=XL ( 
DXI =XL ( 
OXM1=XL ( 


EYP 1=Y1L ( 


IP οκ ο, 
I 25, 9,0) 
Τη ο το) 


ο ο О) 


ου “ο ,К,0,9) 
DYMI-YL(I,JM1,K,0,0) 
BZPI-ZL(I,J,KP1,0,0) 
БЕК -2Ь(1,2,К 0.9) 
DZM1=ZL(1,J,KM1,0,0) 
5.2) DYS=DYS/2. 
ЕО (К-Е0.2) DZB=DZB/2. 
Seed -NE.NJ) GOTO 101 
JP2=JP1 

DYN-DYN/2. 

IF (K.NE.NK) GOTO 102 
KP2-KP1 

DZF=DZF/2. 

CONTINUE 


CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR T 


OXE -XL( 
DXW -XL( 


DYN -YL( 
DYS -YL( 


DZF -2L( 
DZB -2L( 


CACULATE 


DUDX= (U ( 
JUDXW-O. 
DUDXE=0. 


SOO) 
Т οι... 


ο. κ, ο,2) 
І,2 ,%,0,2) 


Ша, КЕІ,0, 3) 
м D) 


OV/DX,D2V/DX2,27/DX,D2U/DX2,DW/DX AND 22W/DX2 
Ip OR)-U(I,.,KUMMAOXI 


ОЕР ЕО ХОМ: 7, Ку) ОХИ 
ο τος ο Απο ,o,K))/DXE 


D2ZUDXK2= (SUDXE-DUDXW) / OXI 


SWDXW=C 
JWDXE=0. 
OWDX-C.Z 
22WDX2- 


CONTINUE 


CALCU? 


SVDY= (V ( 
2ΝΡΥΞΞΟ. 
EVDYN- 
22УрҮ2-( 


ο ο ο ον ο ο τος 


ο ο ο ο ХО МСЕ 7 2)=V(IM1,2Pp1,56)—-V(1X1,2,X)) /32XW 
το л о гуу о, к) УМ, SIV STKE 
x ([2VOXETOVOXWX) 

(ZVDXE-2VOXW) /DXZ 


2" (102,7, КР )-W(I,- , K) -W(TMI 0, ЕРІУ-ЛСІМ 2, X) /DXW 


SONIS «ο 
* (DWDXE-DWDXW) 
(ZWDXE-DWOXNW)/DXI 


ο κ ου ασ ο KBEI)I-W(I,,K))/2XE 


СЕСКЕ ОВА X20 W/DY,22V/DY2, OW/DY AND D2W/DY2 


о ..5.ἑ5» 

αι, S ИТУ СЕМ, Кру 
ΤΙ 
ΟΕ... 


P 


20989400 
20089500 
20089600 
20089700 
20089800 
00089900 
29090000 
590901009 
90090200 
20090300 
00090400 
20090500 
00090600 
90090700 
00090800 
90090900 
00091000 
00091100 
00091200 
00091300 
90091400 
99091500 
00091600 
50091700 
20091800 
90091900 
20092000 
20092100 
90092200 
99092300 
00092400 
90092500 
00092600 
20092700 
90092800 
00092900 
90093000 
09093100 
90093200 
299933009 
22093420 
25993505 
95093695 
22093705 
22093807 
с: анаан 
4929400 


MAMAA ENS EN 


55 09420 

50094360 
59094450 
00094500 
50094600 
50094700 
00094800 
20094900 
90095000 
522095105 
22095205 
29095300 
22995409 
25995500 
22095605 
299095700 
25095800 
20095909 
25096000 
55096155 


( 


606 


* 


ΟΥ 


жж 


х я 


8 


8 


8 


8 


өз 


8 
8 


2.0Ү5-2.2" (0(ІР1,2,К) «0 (І,2,К)-Ш(ІРІ,ЛМІ,КІ-ЦІІ ν᾽ 
ОУОҮК-5.2" (0(ІРІ,2Р2,К)“П(Т,С2РІ,К)-ПШОР ИКЕ ЛИ 
2007-92 Ü“ (DUDYN+DUDYS) 

ST > {(DUDYN-DUDYS) /DYU 


2#0Ү5=5.5 = (И (І, 57, КРр1) -И (І, Ј, К) =н (І, ЈМ1,КР1) = (І, ЈМІ, К) 3 7015 
240ҮМ=0.5" (И (І, 5Р1, КР1) + (І, 7Р1, К) и (І, Ј, КР1) -И(Т,9, К) D 
SWDY=C.25* (DWDYN+DWDYS) 

22WDY2=  (CWDYN-DWDYS)/DYJ 


CONTINZZ 


CALC-LATE DU/D2Z,D2U/D22,DV/D2Z,D2V/DZ22,DW/DZ AND D2W/DZ2 


OWDZs (&(2,J,KP1)-W(I,,K) ) /DZK 
DWDZFsC.S*(W(I,J,KP2) -W(I,J,K ))/р2Ғ 
JWDZB-zC.2*(W(I,J,KP1)-W(I,J,KM1)) /DZB 
D2WDZ2-2 (ZWDZF-DWDZB) /DZK 


DVDZB=S.z;*(V(I,JP1,K)+V(I,J,K)=V(I,JP1,KM1)=V( (IJ EM oe 
OVDZF=.s* (V(I, JP1, KP1) +V (1, 2, KP1) 8-V (Ty JP1, K) SV (In ο ЕЕ 
JVDZ22.z2* (DVDZF *DVDZB) 

J22VDZ2-2  (2VDZF-DVD2B)/D2K 


*(U(IP1,JjJ,K)+U(I,2,K)-U(IPL, 3 ΙΙ τι ο ee 
"(UCIPI,J,RPl1)*U(I,J,KPI)-U(IPI ο κ ο το ,υ. 
(DUDZF+DUDZB) 

(DUDZF-DUDZB) /DZK 


JUD Z=<c., = 


227022= 


DRDX=((R(IP1,j,K)-REQ(IP1,7,K))-ü-(R(IM1,J K) SREQ IM ΠΗ 
(2Xz-DXW) 
ORDY=((2(1,cP1,K)—-REO(1, 5P1,K))—(R(1, oMI KI ВЕРО ΙΙ, 
555-275) 
2502-((5(2,2,КР1)-8:20(1,2/КР1))- (КО μι τε ο ο, 
(227-223) 
JAJGA=S x (ZC (K)) * (SIN (XC (I) ) *DRDY+COS (XC (I) ) *DRDX) 
-525(2С (К)) “ЭКО2 
CALCVLATE RICHARDSON NUMBER 
S:AAINSIZ.CY**2TDVDX"*2-DWDX**2*DVDZ**2-t»WDN S EO EID о 
2292 = SuRT (2UDY*DUOY-DUDX*DODX4*DUDZ*DUDZ SDVDYTSDVS Yo ss 
2ad26*2.2L4-DWOX*OWZX-DOWDY*DWDY*DWDZ* NEZ) 
ο ο ιο )G90 ΠΤ 
SALC.-ATE 


TJRBULENT LENGTH SCALE SMPP(I,J) 


"*2+( (WCU, 0, AP] OW, RII O νυ; 
2=2502 /SORT (DS2UDX2*D295K2+D2U0N 2 92 URTZ 

~J2U0Z2Z * S2UDZ2 +D2VDX2* D2VDX2+D2VDY2* D2VDY2+D2VD22 "22. 2 
22WDZ2*22WDZ2-D2WDX2*D2WDX2 -D2WDY2 *D2WDY2) 
SMPP (2, 27, X) 2CN7T * (SMP123*SMPP12) *.5 
RAl(i1,.,42)2-8J00Y*DRDGA/ (R(I, 2, X) *STRAIN) 
ASRIPA-ZSTURB-Ri(I,-,K)/PRT 


5° (АЗА τα κος, ο) 909 2208500 

ο μου τε «το, ο) ο "ο 

SS eL 

Ves, |. =VISL 

eo Ae S... 

V-S(i,-,AX)2ViSMAX 

το ο ᾱ-- 

М25(1,-,53-УІбІ»Б(І,2,К)"5МӘР(І,2,К) "ӨМӘРІІ, 2 а ы 
(STURZ ABRTARI 
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ΘΑ (CC (0(721,5,K)+U(2,5,K))}*0.5) 2 να το... Ы 
) 


25096255 
29096355 
25096455 
55096555 
500966С5 
90096700 
0909685060 
20096929 
50097050 
99097127 
90097255 
09097329 
00097400 
00097520 
90037600 
50097755 
С0097850 
00097900 
20098000 
20098100 
00098200 
00098300 
00098405 
00098505 
20098609 
90098750 
592098825 
59098905 
50099025 
20099255 
299099222 
200993252 
20099427 
00099509 
22099605 
50099722 
22099820 
29099955 
90105222 
00100200 
50109255 


29152322 


М м ч м 

A AA 
901024525 
” AZAA 
2521022 
AA * PR a 
мы а Мы Сом 
^^ гч л мүм "УЗ ГМ Ф% 
w W L M W t w ыш 
A A a σσ αν 
мі М < WJ w. x w x 
Αα Amm 
Wf S М ч чё ч 
мра Ае 
МЫ Ам ών) 
mA A * AA 
πο να νο wu WwW 
RATA =m P^ 
м ы А М = -м 
ΝΜ 
لاا ب ب ے آلا ے لا لا‎ 
A nN: F^ p 
912242 
^ а 
οσο] EE 
MANS o be al 
"1U-Cov 
FN. > =ч уч м 
«Μα - ον 
AAT AK? an 
v a M uw M 
AAAS Saas 
لا لے اا ت‎ мч 
Ane 52 
.... ww w 
FUITE 
V ae е 
^ m m om 


22104208 


ΠΩ͂ 


C) 


ISIE, S.K) .Gz. VISMAX) VIS(1I,J,K) =VISMAX 22103900 
611 CONTINUE 00103100 
20103200 
00103300 
ου S .-.,NIPI 00103400 
OLS J=1, NJP1 020103500 
K S(1, 3 NKP1)=VIS(I,J,NK) 20103600 
Sir ur“ ) -VIS(I, 2 ) 00103700 
ШОИВЕКТІСОЕ 00103800 
00103900 
DO 129 J=1,NJP1 00104000 
DO 120 K=1,NKP1 00104100 
ου τρ. ο, Ε)ΞΝΙ5(2, 0), Κ) 00104200 
wis (1 ,v,K)=VIS(NI,J,K) 90104300 
TT CONTINUE 00104 400 
00104500 
DO 130 K=1,NKP1 00104600 
ШО 130 І-і,МІРІ 00104700 
ENS JF 1,K)=VIS (I,NJ, K) 00104800 
mrs (1,2 ZEVIS(I,3 ,K) 00104810 
5 (Ы - EBEOSVIS(I,2 ,K) 90104900 
EEUCCONTINCE 00105000 
00105100 
50135 X-1,16 09105119 
KK-NKP;i-X 00105120 
B959135 I-1,NIP1 90105130 
DO 135 J=1,NJP1 20105140 
ШЕӘТІ,-,ХК)-УІ5(І,2,К) “0105150 
135 CONTINUE 00105:60 
90705370 
τσ .-i,NIP1 00105200 
DO 140 J=1,NJP1 90105300 
DO 140 K=1,NKP1 00105400 
IF (NOD (I,0,K).EQ.1) GOTO 140 00105500 
E CONTIN 00105750 
00105800 
RETURN 20105900 
END 00106000 
20106100 
20106200 
«9206300 
20196400 

wee OWOWOX WOW O€ WoW WO OF OW MK RK X WO WOW OWOW OW XoX OX XX XXX WOW WX WOWOW € WOW x X X. R R R R X R x. YF R R R R R X X X YE 22070652 
EOC. SS CALT 252206600 
яки REE RRRRRER RRR RR ERK RE R ROR RRR RARER RRR RR ERE RRR ER RRR EE W. 55106755 
E /25/Х21(93),У2(93),22(93),Х5(93),Ү5(93),25(93), 2196800 
& ο ου 225 (951, 222С(93);5ХХ5(93),2УУ5(93);2225(93) 25126 G 
BSMMON/2L-/2X, 2 τ; ο, Reo o Role: 251975955 
Ж ЕСЕУ/ЗІ Т/Х, Х221,ЧІМІ,М2,52Р1,ХУ2М1,ХК,МЕР:,ХХМ1 00107200 
ЕЕЕ .:52,Ν.5ΡΖ2, ο NA, NAP1,NAM1, \3,NBP1,NBM1,4RUN,NCHIP,NJRA,NWRP 20107250 
COMMON /BL12/ NWRITE, NTAPE, NTMAXO, NTREAL, MIME, SORoUM, 2 LER 00107320 
COMMON/SL.4/HCOEF,7INF,CNT7, ABTURB, BZURB,VISL,V-SMAX,QCORRT,2M1, 2M200107400 


COMMON/3.:6/ CCNST1,CONST2, CONST3, CONST4, CONST6,N7, 20, H, UGRT, BUOY, 90107500 
& CP2,?RT, CONDO, VISO, RHOO, HR, TR, TA, DTEMP, TWRITE, TTADE, TMAX, GC, RATROO107600 


aNvuow tf 


& 


& 


SEMMON/3.L22/:CHPB(1 ο), 


NCHPT (1 ο CHEB (10), 


NCH? J (.0), ХСНРВ (20), 


ESMMON/3.L5./ 
meee (22, .6 


ESMMON/3-32/ 7 


NCHPK (10) , CCHP (10), СРБ (10), СОМ5 (25) ,WFAN(ZO) 
BOGt22, 26757), 20D (22,16, 32), POD(22, 26,32) 

, 22), 3625 (22, 
; (22,6, pon Da 6 2), 2 (22,:6,32) 


16, 32), VOD (22, 16, 32) , 0D (22, 16, 32) 


ο ο) ου 
90107800 
52107905 
90108000 


29108200 


& 2 ο 912218, 32) ,V (22, 26, СО [{22, 6,32] 20108200 
СОММОХ/ 32.33/ “50 (22, "η... :@, 55у, р25(22,`16,32› 20108300 
6 45271727 :5,32);2р2(22/:6, НЕЗ 321 5502 16 32) 22108405 
BSMMON/3:34/ 1-1617 (22, 6,32) R20 (22,26,32, 202985600 
& SMP (22, 16, 32) , SMPP (22, 16, 32) ,22 (22, 26,32), 20108500 
5 οσο ο 6,52), V(22,.6,32), ON (22, 26,32) 20108720 
COMMON /5236/A? (22, .6, 32), AE (22, 16,32) ,AW(22, .6, 32), AN (22, 16,32), 22108800 
& ο ο. a2) yah (22,.6,32),Ac(22, 16,32), 55108900 
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SS 6,32); 


CALCULATE COEFF ` 


DO 100 K=2,NK 
қр2-К-2 
xPl=K+1 
KM1=K-1 
KM22K-2 

ΓΟ, 7Ο Jz2,NJ 
JP2=J+2 
JP1=J+1 
JM1=J-1 
JM2=J-2 

PO 100 I=2,NI 
IP2=I+2 
IP1=I+1 
IM1=I-1 
IM2=I-2 

ΕΕ (T EQ.2) 
IF (I.EQ.NI) IP2=3 
CENTRAL LENGTH OF 


DREN eHAL (iP ο 9) 
OXI =XL(i + 


ο.) 


DXMIEXL(IMI,.,X,079) 


OYPI=YL(1,vri, 4,070) 
ον νο 772270) 
DYMI=Yi(i,oMl,K,070) 


DZRIZZL(lI,o0,KP1,0750) 
ΤΙ, 60.K 5,5) 
DZMISZL(-,-.,KM1,0,0) 


SURFACE LZNXGTH OF 


ОПЕКЕ 5270,02) 
O2XS=XL(1,J ,5,0,2) 
DAP HX oa ο πο 
SKB KLIS TT 


TT 


Ur) UJ "J 


< 1< o< 
| 
i 
C 


-+ 


= 


U) UID UD 
Сос ас 6 


νο ποσα, 
о25=2 {1 5 


CENTRAL LENGTHY OF 


EXEESXL(ISD OD S ΠΠ 
c X οκ. 0, αι... 
DXW =XL (I 
OXWW-X- 


2 ر رر 
G2 Мс, СИЯ‏ 


ИМЕ У ο οσο 2) 


2 YN E SS 
DYS ον ο n^ Gi | 
D SOSEN uuu uz) 


- 
- 


IM2=NIM2 


SONIS 


- 
та = 
* 94m 


-s p ¢ y 


-+ + = 


= 
e 


TY 
- 
-— 


- S (22,16, 32) ЕЛЕБИ 
COMMON/BL37/VIS (22, 6,32) ,COND (22, 16, 32) , NOD (22, 76732) pn S 
ΕΠΕ, 5). πο2λ|8 


, 2}, NHSZ (22,16,32), RESOR Ge 


MPERTURE CONTROL VOLUME 


CONTROL VOLUME 


ES 


AGGERED CONTROL VOLUME FOR T 
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20109000 
00109106 
02109200 
00109300 
00109400 
00109500 
00109600 
90109700 
00109800 
00109900 
00110000 
00110100 
00110200 
00110300 
00110400 
00110500 
00110600 
00110790 
00110800 
00110900 
00111000 
00111100 
00111200 
00111300 
00111400 
00111500 
90111600 
90112700 
00111800 
00111900 
00112000 
00112100 
00112200 
00112300 
00112400 
00112500 
00112600 
09112700 
90112800 
00112900 
90113200 
09113100 
90113200 
2011968085 
00113400 
22113599 
99117388 


NANA ° nimi 
15123722 


95113890 
99114555 
90114000 
90114109 
00114200 
00114300 
09114400 
50114500 
002124600 
55114755 
09114800 
00214900 
202115520 
99115200 
09:22 
99 1153090 

29115409 


rN fN = 
oro S590 


90115690 


мл“ 4 ға” 
М м < + м м 


° KER 
` 


F. Z. (I,J,KP1,0,3) 
ЕГЕ -2- (1,2,5 ,0,3) 
ШӘР-2-(І,2,КМ1,0,3) 


E THE AREA OF TSE CONTROL VOLUME 


>XYF=>XF*DYF 
2XYB-2XB*DYB 
ENMUEZOYI*DZE 
2YZW-DYW*DZW 
2ΖΧΝΞΟΖΝΤΝΌΧΝ 
22Х5-225“рХ5 


VOL=0X- *DYJ*DZK 
VOLDT=VOL/DTIME 


ZXOYN=DZXN/DYN 
ENOMSSOZXS/DYS 
XYOZF=DXYF /DZF 
XYOZB=DXYB/DZB 
YZOXE=CYZE/DXE 
¥ZOXW=DYZW/DXW 


eeeik(:,J,K) *DYP1+R(1I,JP1,K) *DYJ) / (DYP1+DYJ} 
So* (R(Z,J,K) *DYMI*R(I,JMl, K) *DYJ) / (DYM14DYJ) 

EET J,K)*DXPITR(IPi,J,R)*DXI) / (DXP1*DXI) 
SW- (R(Z,J,K) *bDXMI*R(IM1,J,KX) *DXI) / (DXM1-*DXI) 
ELS C ,K)*DZPI-R(I,,KP1) *DZK)/ (DZ2P1-4DZK) 
ee=(n(-,~,K) *DZM1+R(1,J,KM1) *DZK) / (DZM1+D2K) 


CNSGN*V(I,SP1,K) *DZXN 
CS=GS"V(I,J ,K)*D2XS 
EUxGE*.(IPI,J,K)*DY2E 
CW=GW"9 (I ,J,K)*DYZW 
EXGE*W(I,J,KP1) *DXYF 
c32zGS"*W(I,2,K )*DXYB 


ESUBNE./((1./COND(I, Z,K) *DYJ*1 
ESUDS--./((1./COND(I, 2, K) *9YJ*1 
EXUDE--./((G./COND(I, 2, X) *2XI*1 
ESDS--./((-./COND(I,-,K) *DXI*1 
ESIDS:--./((1./COND(Z,Z2,K) *DZK*1 
EDE--./((1./COND(:,-,&K) *22K*1 


CONDNZSZXOYN*CCOCNON 
50525: =ZXOYS*CONDS 
mos .—*2ZOXE* CONDE 
SOND -YZOXW*CONDW 
COND? _=XYOZF * CONDF 
CONDB--2XYOZB*CONOB 


ΙΙΙ PT U KR)469YB1)/(92Y51=DYZ2)) 
СОМУМ K) s DYVM1)/ (9YM12+DYJU) ) 
ο ο ο πε КУ" ОХР1)/ (ОХР155Х1)) 
COND CIMT SSK *DXM1) / (OXM1*2X:)) 
ορ ARIE DZE) / (D2P1=<DZK)) 
SAGOND'UISSLAMIPEOZMI)/ (DZ2R DEOZK)) 


ECC IUASS (CE) *CE) *DXP1*DXI/ (DXE* (DXE*DXW ))/8. 
ESL (A35 (CE) -CE) *DXP1*2XI/ (DXE* (DXE*DXEE) ) /8. 
-AP- (A3S (CW) *CW) *DXM1*2XI/(2XW* (DXW«DXWW) ) /8. 
CAM= (ASS (CW) -CW) *DXM1*DOXI/ (DXW* (DXW+DXE ))/8. 


EN USSS(CN)*CN) "DYP:*5YZ7/(DYN* (DYN*DYS ))/8. 
μοβ σον) *DVP1*2YJ/ (2YN* (DYN*DYNN) ) /B. 
Seems (CS) +CS) *DYM1*DYI/ (DYS* (DYS+DYSS) ) /8. 
Ku > (CS) —CS) *DYM1 *DYI/ (DYS* (DYS+DYN ))/8. 


o 


( 


КОИ (Cr) +Cr) "DZP 2 "OZK/ (DZF* (DZF-DZ3B ))/8. 


Ы -55(С:2)-Сг)"22р1<225/(02Ғ"% (02ҒЕ-22гЕ))/8. 
ЕЕЕ (-35(СВ8) -С8)"22У: «22К/ (22В< (02В»-228В))/8. 
РБ 532(03)-С3) "22У:ғ92К/ (22В% (02Вғ022Ғ ))/8. 
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AAs = 
57225800 
22222309 
ууз = ΄ 
«η de m «ω 


в оу 


cee 6200 
52226200) 
55116400 
00116390 
22226600 
νυ “ΠΤ 
50116800 
20226900 
DIO 
COT 29D 
201727290 
oou S00 
00127400 
20117500 
292117500 
00117700 
00117800 
00117900 
00118000 
001.8209 
22228200 
2118300 
50118400 
ος 8-00 
GOI EEUU 
Go: 8750 
о: 8800 
202-8300 
οἳ 2. 9D 
2011 9100 
0119200 
20179300 
ED 


Ff 
< W < =< 


22215202 
222590120 
ο. ου 
ov- 3990 
^-^ FS PS PS fN 
wow м м м با نا‎ 


An“ mA“ ARA 
е -- 


ΛΘ. 


Ал- елелт 
ΕΟΟ 
wo =< м ы м 
лл л T... 
Ga Lig 7 
rae RR PRA 
«Ὁ 
ART RATAN 
vw << v iv 
^^ ο "~ Ἂ 


2022080 
90220900 


М A > m em e. 
OEE 


Do 23: 
2. 


W w = Ç < < = 


25223-45 


(οί Ὁ (οὶ ο т 
22-23-52 
AGORA 


` 
^ 
ч 
^^ 
`w 


“Las ΕΙ ΜᾺ 
ο. του 
^m 9 
< w m 2 25 


Ου 


ا Ane‏ 
> 5 2 ر 


° 22 22 
22225-93 
2525-96 
ΟΞ 26 
СЕЛЕ 5) 


ως GO 


801 
802 
803 
804 


805 
806 


807 
808 


809 


810 


AZ(I,2,X)=-.>S*DXI/DXE*CE+CEP+4CEM*(1.+-DXE/DX52 ТС eee 
АЙ(І,Ј,Х) = .5*DXI/DXW*CW+CWM+CWP* (1.+DXW/DXWW) +CEP*DXE/DXW 
AN(I,-,X)=-.5*DYJ/DYN*CN+CNP+CNM* (1. +DYN/DYNN I C I -ἊὉᾱ 
AS(I,-,Xy= .š*DYJ/DYS*CS+CSM+CSP* (1.1DYS7D 755) ТИ 

F (I, ,X)==.5*DZK/DZF*CF+CFP+CFM* (1. +D2EZ/DZ2r rama onn ШЕ 
A3(I,-,X)= .5"DZK/DZB*CB+CBM+CBP* (1 .+DZB7 D222) 42 ea π᾿ 


z--ORM*DXE/DXEE 
AEE2SSAESE*TPD(IP2, 3, K) *CPMI IPO on 
CONTINVE 


AWW--CWP*DXW/DXWW 
AWWR-AWW*TPD(IM2,J,X) *CPM(IM2,J,K) 
CO TINUE 


I: KOT NJ) СОТО 805 

ANN=0. 

ANNR=0. 

σοτο 806 

ANN=-CNM*DYN/DYNN 
ANNR=ANN* TPO (I, JP2,K) *CPM(I,JP2,K) 
CONTINUE 


ΠΕ, 1.2) СОТО ВО} 

ASS=0. 

ASSR=0. 

GOTO 8C8 

ASS==CSP*DYS/DYSS 
ASSR2ASS*TPD(I,JM2,K)*CPM(I,-M2,K) 
CONTINUOUS 


tr (K. SNK) GOG 809 

AFF=0. 

AFFR=C. 

GOTO 5-5 

АсЕ===СЕМ®р7Е/ГТЕЕ 
APER-AS-"TPD(OI,JIKP2)*CPM(I,J.4P2) 
CONTINGE 


- κο ο) ουτο е 

A38-0. 

ABBR-O. 

αυτους 2 

AsB=-C2?*9Z3/DZBB 

ABBAS TPO νο CoM Ole 2) 
сох NU. 


sgddgzashkuzzzciszcsssnztégrkdinsrnéestuashdüsdskdsüzszazzuaszzzc 
RSRHFHBRERESSS EHTS t est eek geeH Heke eH HHH HH RRR RE Eee Re aes 
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MODIFICATION FOR DECK BOUNDARIES 
BOM OS 
-F (NO2S(-`M1,- K) .ZQ.G) GOTO Τ. 


AWW=C.C 
AWWR=C.2 


νο νι) 520,0) GC Lome 


JJ Dry s| ο) 


> >, (GO 


КО оро οὐ. 
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2512306 
929123386 
20123200 
99123224 
20123202 
20123203 
90123294 
00123210 
20123300 
55123400 
20123590 
00123600 
00123700 
00123800 
00123900 
90124009 
90124100 
90124200 
00124300 
00124400 
90124500 
00124600 
00124700 
09124809 
00124900 
60125000 
90122758 
90125209 
00125309 
00125400 
901255090 
00125600 
00125700 
00125800 
90125900 
90126000 
20126100 
00126200 
00126300 
00126400 
AME . 
2212660 

2022675 

ο δόμον 
09126900 


22227525 


лл” “4 RRA 
IPA E 


2222120 
2522150 
25227490 
90127325 
291276695 
49120099 
2222156 
ΑΔ ΣΟΙ 
2512855 
22128122 
5928 
251285 
5512845 
22228554 
27922885 
52128702 
29-28999 
222222 
22129052 
22222 


2222925 


су 


O 


о) 
oo 


©) 


©) 


eee CONTIN 5 


904 


905 


ο lr1,X).20.¢) GOTO 904 
АММ-0.2 
ἈΝΝΒΞΟ. 5 


CONTINUE 

Memeo (l,v,KM1).20.C) GOTO 905 
АВВ-0.5 

ABBR=0.0 


CONTINUE 

ШЕ ОЮ (2,27, КР) .50.0) GOTO 906 
AFF=0.0 

АҒЕК=0. 2 


906 СОМТІК5Е 


T I11SASESASKERAZRSAIRSKAAZRAKATARKRKKAKKSASSAKRALRKSASARSKSZSAKRSRSSKSAKRAKRAKAZSKE 
11111111 2111111111 ΣΑΣ 11128: 


* 


kr 


AP(I,v,X) =(AE(I,0,K)+AW(I,J,K) +AN(I,0,K)+AS (1,0, K) 


00129300 
00129400 
00129500 
00129600 
00129700 
00129800 
00129900 
00130000 
00139299 
00130229 
00130300 
00130400 
00130500 
00130600 
00130700 
00130800 
00130900 
00131000 
00131100 
00131200 
00131300 


+AF(I,J,K)+AB(I,J,K)+AEE+AWW+ANN+ASS+AFF+ABB) *CPM(I,J,K)00131400 


+CONDE1+CONDW1+CONDN1+CONDS1+CONDF1+CONDB1 


ET, A)-AE(I,27,KX)*CPM(IP1,J,K) *tCONDEI 
АМ (1,2, <) =АМ (І, 7, К) *CPM(IM1,7,K) *CONDW1 
АМ (1,2,5) =АМ (І, Ј, К) *СРМ(І,ЈР1,К) +СОМОМ1 
ВЕ 7 К) =А5 (1,7, К) *СРМ (І, ЈМ1,К) +СОМ051 
AF(I,2,X)2AF(I,7,X) *CPM(I,S,KP1) *CONDF1 
AB(I,2,X)-2AB(I, 2, K) *CPM(I,J,KM1) *CONDB1 


SP(I,v,X)-2-8OD(I, 7, K) *VOLDZ*CPM(I,J,K) 


SU(I,5,X)=SU(I, JC, K) +AEER+AWWR+ANNR+ASSR+AFFR+ABBR 
CONTINUE 


TAK: CARE Cr 3.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 
КАБ 25 DIRECTION 


E-2 NI 
20 505 K=2,NK 
ӘР(І,2,5)-5Р(:,2,5)-А5(1,2,5) 
Bee, 2,4) =SP(',2,K) -AS(i,2Z, XK) 
ЕР 2, 5)-50(:,2,5)-2,2%А5(:2,2,К) "ТОӘ(І,2,5) 
amet, 17, \)=SrP (1,0, K)-AN(I, NU, K) 
ЕЕЕ 7, 5)-5/(:,:7,5)-2.-Т?9Т(Т,Х2Р1,Х) “АМ(Т,Х2,К) 
Poa, 2,4)=0. 
POL, tc, XK) =0. 


72522 
EC CONDITIONS 


ШЕШ 692 2-2,NJ 
09 605 X=2,NK 
EN ,2,5)>50(2 ,2,К)-АМЮ(2 ,2,К)“Т(2 74,8) 
ЕП 272,5)-5Г(:,2,5) “АЕ (ХІ,2,К)чТ(МІРІ,2,К) 
K (2 ,-,X)=C.C 
Ас (МЇ,2,‚^)=0.5 


` mx t ia w x° ° > = 
ον... „= 


πο. 
СЕГА ТАБ (І 2Р2) 

2 AULAS T, NK) 
9 
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00131500 
00131600 
00131700 
20131800 
00131900 
00132000 
00132100 
00132200 
90132300 
00132400 
C0132500 
00132600 
00132700 
00132800 
00132900 
90133000 
99129229 
00133200 
90133320 
00133425 
OT ds 
20133650 
20794722 
00133850 
20132920 


^^t 3 ^m^ 
Óx м > ум мы 


20134-22 
00134200 
001343CC 
00134400 
00134570 
20134600 
90134752 
00134800 
520134920 


^ лл ARN 
MOTOS UU 


20122222 
601352952 
90085550 
00135455 
991355222 
620135695 
90122222 
25432500 
291353920 


20136522 


Аг (І,2,ХК)-0. 20136:00 


700 CONTINUE 20136200 

20236300 

20136400 

С "қ" ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 22136500 
22136600 

DO 300 ΚΞ2, ΝΚ 20136700 

DO 300 2-2,52 22136800 

DO 300 I-2,NI 20136900 

АР(1,2,К)-АР(І,2,К)-52(1,2,К) 22137000 

300 ΟΟΝΤΙΝΟΕ 00137100 

20137200 

00137300 

00137400 

C *** VOLUME HzAT SOURCE :NPUT 00137500 
20137600 

VOLT=0.0 90137700 

DO 113 I=2,NI 20137800 

ЕОМ J=2, NI 00137900 

DO 113 K=16,17 20138000 

ІҒ (МН52(1,2,К).Е0.0) СОТО 113 00138100 

DXI =XL (I ,j3,K,0 O) 00138200 

ια ιτ κας 00138300 

DIK EZ (I,J/K ο ο 00138400 

VOLZDXI*DYJ*DZK*H*H*H 20138500 
VOLT=VOLT+VOL 20138600 

113 CONTINUE 22138700 
20138800 

OO TII 122,1 00138900 

00 111 J=2,NJ 90139000 

D0 111 x=16,17 09139100 

1E (NBSZ(I,J,K).-EQO.9) COTON 90139200 

DXI =K (I ,-.Κ.0, 0) 20239300 

ӘҮЛ -УІ(І,2 ,к/0/0) 00139400 

р2К -22(1,2,К 9,0) 00139500 
000-0"Ч/ (UC*CP0 *RHO0 *TÀ) 00139600 
VOL-DXI*DYJ*DZK 20239700 
$9(1,7,К) =50(1,7, К) -VOL*QQQ/VOLT 20139800 

111 CONTINSE 00139900 

09140000 

50145100 

C *** RADIATION INTO THE WALL 20142200 

00140300 

- 20 3:0 X=3,NKM1 20149400 
S ος ο ον: 90160500 
2 ЭХЕ Е (Е АЛҒА Қ 072) 222402 6 
e ο ος RA CNN ob) CCI 
т ολο εν SKN C040 

S == (K=3)* (Ni-2) -i-2 20145605 
S SU(I,NSRA, X) =SU (7, NJRA, K) -RWALL (II) *DZXN 252521 
2 31Сс CONTINUE | 00140800 
0019900 

С "== END OF RADIATION 00141200 

00141222 

CG «e  SCLVE FOR T 29141202 

τα ο τι 'callling cr g: 
90141300 

ελ, “το (5 2ο ο οκ ο) 55141455 
0:486 

C **** RESET TEMPERATURE AZT 3=0.0 АМО ЕКО OR SPHERE сора 
2524215 

20 81 X=1,NKP1 5024-8060 
Е: 20242902 

ρα 22,57 20152555 

ο ο στο ς ο ο.) eI 

82 CONTINUE 2051422 

29 83 =: „Рі 55242325 

πι ο -δυτ 202142420 


88 


CONTINUE 20142500 
CONTINUE 90142600 

С 90142700 
DO 74 I=1,NIP1 50142800 

DO 74 J=i,NJP1 00142900 
ШИ) =Тт(І, 1,2) 00143000 

.', МКР 1) =Т(І,Ј, МК) 20143100 
CONTINUE 00143200 
20143300 

Е FOR SURFACE HEAT ЕХСНАМСЕ WITH SURROUNDING 00143400 
90143500 

OO 84 I=2,NI 00143600 

OO 84 K=2,NK 00143700 
DYJ=YL(I,NJ,K,0,0) 09143800 

EU NUPI,K)-(2.0*COND(I, NJ, K) *T (I, NJ, K) /DYJ+HCOEF * TINE) / 00143900 

& (HCOEF*2.0*COND (I, NJ, K) /DYJ) 90144000 

84 CONTINUE 00144300 
00144400 

00144500 

©з МАМЫ FOR CYLIC CONDITION 00144600 
00144700 

DO 80 J=1,NJP1 00144800 

DO 80 K=1,NKP1 00144900 
ШУ, К) = T(NI, J,K) 00145000 
T(NIP1, J, K) =T(2,J,K) 29145100 

80 CONTINUE 50145200 
00145300 

RETURN 50145400 

=ND 09145500 
90145600 

90145700 

00145800 

© 00145900 
C www www ww ç. x... FN WN KN N N FW ERR ERE EER EERE RETR x... x W. É x ттк x 00146000 
SUBROUTINE CALC 90146100 

C www RRR RRR RRR ERR RR REE REE ERE TEETER Xx 00146200 
Seon 7 R4/XEC(93), YC (93) ,ZC(93) ,XS(93),YS(93),28 (93), 90146300 

& 2JXXC(93),DYYC(93) ,022C (93) , DXXS (93) , DYYS(93) , 0228 (93) 292146400 
ESUMON/BL-/DX,DY,DZ,VOL,DTIME, VOLDT, THOT, TCOOL, P1,Q,QR 20146500 
COMMON/BL7/NI,NiP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 09146600 

& ,NiP2,NoP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 55146705 
COMMON/BL;2/ NWRITE,NTAPE,NTMAXO, NTREAL, TIME, SORSUM URS 20146809 
ӘСОММОМ/ВІ.-4/НСОЕҒ,ТІХҒ,СМТ,АВТУВВ,ВТОВВ,УІ5І,, УІ5МАХ,ОСОЗВЕТ,РМ1,2У2002:46900 
ου. 6 СОХ5Т:,20М5Т2, СОМ5Т3,СОМ5Т4,СО9Х5Т6,5УТ,02,Н,9СЕТ, BUOY, 90:470009 

r 0. DRT,COND0,VISO,RHOO,FER, TR, TA, DTEMP, TWRITE, TTAPE, TMAX, GC, RALRGOL 47100 

ου σου ορ ο) , NCH?! (1.6), JCHPB(1G) ,NCHPJ (190), KCHPS (1 б), 2211200 

5 NCHPX (19), TCHP (10), CPS (10), CONS (10) , WFAN (20) 522291305 
ИОНИ ВЕЗЕУ 225 (22,16,32), 00 (22,16,32) ,РО0 (22,26,32) 20147400 

5 КОО 6,32), 6c (22, 16, 32), VOD (22, 16, 32), WOD(22, 16, 32) 251475900 

ο ο 3 02) 1(22,16,32),R(22,16,32) , P (22, 16, 32) 252247600 

& ЦИ C ο (22626 32) N (22,16,32) ,W(22,-6,32) 59147700 

ο ου ο ТР2(22/:6, 32), ЕРр(22,16,32),РР2(22,16,32) 00147800 

& Bee eae icy PP/22 26 32) VPD (22; 1`6,32) ,N2D(122, 6,32) 20147906 
ЖЕК Ег34/ HEIGHT (22,16,32),REQ(22, 16,32), 50148000 

& See, 321, SPP (22520, 32),PP (22,16, 32), 99148100 

& ο τε 5 ο) ΘΝ(2 16,32) ΌΝ(22, 16,392) 20148200 

Б ИПОК/ЕІ36/АР(22,:6,32),АЕ(22,16,32) ,АМ(22,16,32),АХ%(22,16,32), 25148300 

& AS 2276, 321,AF(22,16,32),AB(22,16, 32), 22148400 

& ο ο το ο) ὃ- 2216932) «RI (22,16, 32) 2148500 
COMMON/BL37/VIS (22, 6,32), COND(22,16, 32),NOD(22, 26,32), RWALL(579) 55148600 

& pea А ο. Scho ye) yp NESZ (22,16,32 , RESORM (93) 22248702 
COMMON /BZ39/ALEW, PCL AVE, CONSRA, PCURMI1 , PSOUTE, QCORR, PEZ AROR 25148800 
29148909 

Et uC ATE COE CENTS 25149200 
25149109 

КОШСО X=2,NK 20249200 
KP2=K~Z 252149300 
APIZK-:. 00149466 


89 


όν ππα 
ы 


ere oe 


ΙΙ το ο) C IM2SNIH: 
το 


ПЛ МТ) 1Р2=3 
CENTRAL LENGTH OF 


DAP1=X_(iP1,J5,K,0,0) 
DXI =XL(I ,J,K,0,0) 
OXM1=X2 (IM1,0,K,0,0) 


DYPl=ayYe(2,JP1,K,0,0) 
DYJ =Y (1,23 +R, On) 
71 Y (. JML, E, ,0;O) 


ο ον το πρι ο) 
DARREL d, K ,27742) 
ραπ ο ΚΜΙ  δ ο) 


SURFACE LENGTH OF 


DANSK (2, CP 1, 4,02) 
2Х5-Х..(-,2 ,К,0,2) 
DXr*-Xx«L(.,,XPl,053) 
QABwXIS( a, KE. 3) 


Оема: ое КРЕ 
ο Т) 
ЕМЕСЕ УОИ) 
BPMN ,2,5,0,1) 


απο ι ο οσο ο 
SINS. ο κ ο... 
22Хе-22 OI ROL) 
SLL oy) 


TEN RAL LENGT Е 


SASK (ZEF 
σσ: E E KO n 9 
DAN EX-(.  ,2,K,0,2) 
SEAWSK-(2MI ο νο”) 


INST (Or 
ЭМА ЕУ (,oPI 
ОЗШЕ (5,0 


ο στο νο οσον ο 
=2_ СЕ хр ©, 3) 
ρω ο πο ο ο ο ο) 
σι ο ΕΜ. DS 


morcs БЕ AREA ΟΕ 


ee SOAS oe 
SVB 


Жолы е eo 


THE SCALE CONTROL VOLUME 


THE CONTROL VOLUME 


ТІНЕ STAGGERED CONTROL VOLUME ΞΟ. 


~BE CONTROL VOLUME 
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"m 
- 


00149559 
00249606 
09149700 
20149890 
02149900 
90150605 

09150290 
09159206 
50155350 
99150400 
90150509 
00150609 
00150790 
00150800 
09150900 
90151099 
9001522 

90152220 
00151990 
001514900 
00151500 
00151600 
00151790 
00151800 
00157300 
00192050 
00152200 
00152299 
00152300 
00152400 
00152555 
50192600 
00152799 
20152800 
00152900 
20153222 


NANNIES ^^ 


59015325 
90153222 
00353400 
00153506 
291535292 
00253158 
26253850 
992227 
29154520 
22254.59 
25-362. 
792365656 
20154455 
5901545550 
2015460 

20154752 
59154825 
20:549552 
COS 


nna - AAA 
wow e € м м м 
Ans 56: ^^ 
м М ے‎ 4 = м М 
ane 56222 
“ч4“.2Сс4жмжм 


DYZW-DYW*DZW 
DZXN=DZN * OXN 
D2XS=DZS*DXS 


MUbDEDXI*?ZYJ*DZK 
VOLDT-2VCL/DTIME 


ZXOYN=DZXN/DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW=DYZW/ DXW 


FI (R(I,-,K)*DYP1+R(I,JP1,K) *DYJ) / (DYP1+DYJ) 
BEXIR(IT,2,K)*DYMI-*R(I,JMI,K)*DYJ) / (DYM1*DYJ) 

EU Ui ,RUSDXPITR(IPI, J, K) *DXI) / (DXP1*4DXI) 
GWz (R(I,-2,K) *DXMI*R(IMI1,J,K) *DXI) / (DXM1-*4DXI) 
G r= (R(I,.,K)*DZP1+R(I,J,KP1) *DZK) / (DZP1+DZK) 
GB- (R(I,Z,K) *DZM1*R(I,J,KM1) *D2ZK) / (DZM1«DZK) 


CN-GN*V(I,JP1,K)*DZXN 
ESEGS*VII,J ,K)*DZXS 
CE-GE*U(CIPI,J,K)*DYZE 
CW=GW*U (I ,J,K)*DYZW 
CFZGF*W(I,J,KP1)*DXYF 
CB:GB*W(I,2,K )*DXYB 


CONDN=:./((1./COND(I,J,K) *DYJ+1 
CONDS=. ./((1./COND(1I,J5,K) *DYJ+1 
ESNDEx../((1./COND(I, 7, K) *DXI*1 
CONDWzZ../((1./COND(I,-S,K) *DXI*1 
ESNDE-:./((1./COND(I,J,K)*DZK*1. 
CONDB=: ./((1./COND(I,J,K) *DZK+1 


CONDN1-2XOYN*CONDN*ALZW 
CONDS1-2XOYS*CONDS*ALEW 
CONDE1-2YZOXE*CONDE*ALEW 
CONDW1-YZOXW*CONDOW*ALEW 
CONDF1-XYOZF*CONDF*ALEW 
CCNDB12XYOZB*CONDB*ALEW 


mw ecOND Gl, Jel, n>) *DYPl)/ (DYP1L+DYJ) } 
СОЕ TMD kK) *~DYM2)/ (OYM1+DYJ) } 
w COND (IP Td, N) *DXPz) / (DXP1+DXI1)) 
./COND (IM1,J,K) *DXM1) / (DXM1+DX1) ) 


LSONDIUT T IANPDIUEDZPI)J (DZPI*02K)) 


., /COND (I, J, KM1) *DZM:) / (DZM1*DZK)) 


SEP-(ASS(CE)*CE) *DXPz *DXI/ (DXE* (DXE«*DXW ))/8. 
BEMUE(ASS(CZ)-CE)*DXP:*DXI/ (DXE* (DXE4DXEE) ) /8. 
CAP-(ASS(CW)«*CW) *2XV1*DXI/ (DXW* (ZXW*DXWW) )/8. 
c4M- (ASS (CCW) -CW) *DXM2 *DXI/(DXW* (DXW*DXE ))/8. 


ELCIASS(CN)TCN) *DYP!*DYJ/ (DYN* (CYN*DYS ))/8. 
ENS(AsSS(CN)-CN) *DYP! *DYJ/ (DYN* (DYN*DYNN) )/8. 
ESSIASS(CS)*CS) *DYMI *DYJ/ (DYS* (DYS«DYSS))/8. 
ИЕ S(C9)-CS) *DYMTI*DYJ/(DYS* (DYS+DYN ))/8. 


ESELLOUASS(CEZ)TCP)*DZP.*DZK/(DZF* (DZF*D2B ))/8. 
BESUEUASS(CE)-CF)*D2P1*D2K/ (DZF* (DZF *DZFF))/8. 
CBP- (ASS (CB) -CB) *D2M1*D2K/ (DZB* (DZB«DZBB) )/8. 
CBMz (A8S (C3) -CB) *D2M1*D2K/ (DZB* (DZB«*DZF ))/8. 


Pome, 4) =~ .3"*DXI/DXE*CE+CEP+CEM* (1 .-DXE/DXEE) ~-CWM*OXW/DXE 


AW(I,2,4X)- .2*DXI/DXW*CW-CWM*CWP* (1. -DXW/DXWW) -CEP*DXE/DXW 
AN(I,2,4)2-.5"DYJ/DYN*CN*CNP-*CNM* (1. -DYN/DYNN) *CSM*DYS/DYN 
ИС 2,2)- .*DYJ/DYS*CStCSM*CSP* (1.-DYS/DYSS) *CN? *ZYN/DYS 
I, )--.:*D2K/DZ2E *CF-CEFPX*CEM* (1.-22F/DZEF) -C34*228/DZF 
EM s -2*DZK/D023*CB-CBM*CBP*(1.-2028/DZBB) -Cz727*2272/228 


BOIDEAEETZ-CIV*OXE/DXZE 


ΘΒ 


50156300 
99156400 
20156500 
52156600 
00156700 
90156800 
00156900 
90157000 
90127100 
09157200 
90137300 
90157400 
00157500 
00157600 
90157700 
00157800 
90157900 
00158000 
99158100 
00158200 
00158300 
00158400 
00158500 
00158600 
00158700 
00158800 
50158900 
00159000 
20159100 
20159200 
99159300 
C9159400 
50199500 
90159600 
29159700 
20159800 
529159900 
20160000 
00160100 
00160200 
59160300 
20160400 
25162700 
95162800 
20162801 
79162802 
59562803 
25162804 
50162805 
20162806 
20162807 
50162808 
50162809 
50162810 
016281. 
50162812 
592162813 
52162814 
ШЕ 28:25 
70162816 
00162817 
50162818 
59162819 
50162820 
2216282: 
52162822 
20162823 
50162830 


QOO 


802 
803 


804 


805 


806 


807 


808 


809 


810 


11 1111112111 ΑΣΕ ΤΑ ΣΣΣ1Σ11 11111111 


FeHHHR RRR ARERR TREE Re ere e HH eT SC HHH HHH HH HH RHR RHR HT Hs HEF 
VODIMEMCATION FOR DECK 


* w * 


900 


901 


902 


DEBREAEE*CPD(:P2,J,X) 
CONTINUE 


AWW--CWP*DXW/DXWW 
AWWR-AWW*CPD(IM2,JJ,X) 
CONTINUE 


ТОШ ου νο СОТО 855 
ANN=0. 

ANNR=0. 

GOTO 806 
ANN=-CNM*DYN/DYNN 
ANNR=ANN*CPD (I, UP2, Χ) 
CONTINUE 


IE (J.GT.2) GOTO 807 
ASS=0. 

ASSR=0. 

GOTO 808 
ASS=-CSP*DYS/DYSS 
ASSR=ASS*CPD (I, JM2,K) 
CONTINUE 


ESK. L. NK) GOTO 809 
AFF=0. 

AFFR=0. 

σοτο 810 
ArF=-CFM*DZE/DZFEF 
AFFRSAFF*CPD(I,.,KP2) 
CONTINUE 


LE (K GT.2\ GOTO BIL 
ABB=0. 

ABBR=0. 

GOTO 812 
ABBz-CBP*D28/D2BB 
ABBR=ABB*C?D (1,0, KM2) 
CONTINUE 


ο ο 

HS (NOD (IML, 2, x). 
AWW=0.0 

AWWR=C .0 


κ} 


с? 


CONTINUE 

epee NOD (iP 70,4) 550.¢ 
АЕЕ-0.5 

AZER=0.¢ 


CONTINUE 

Se OD (i ew Ay ος 
А55=0.5 

ASSR-6.2 


CONTINTE 


ΠΡΙ, Ξε Τε 


ANN=0.0 
АММК=0. 5 


40) 


CN = 
s ( 


II =i 


τν 
NOD 
A3B=0.0 


SOUNDARIES 


te Ne) oct 


00162900 
00163000 
00163100 
00163200 
00163300 
00163400 
00163500 
00163600 
00163700 
00163800 
00163900 
00164000 
00164100 
00164200 
00164300 
00164400 
00164500 
00164600 
00164700 
00164800 
00164900 
00165000 
00165100 
00165200 
00165300 
00165400 
00165500 
00165600 
00165700 
00165800 
00165900 
00166000 
00166100 
00166200 
00166300 
00166400 
00166500 
00166600 
00166700 
00166800 
00166900 
00167000 
00167100 
20167200 
29167300 
909167400 
59167500 
290167600 
00167702 
00167800 
00167900 
90168000 
50168100 
90168200 
90168300 
00168400 
90168500 
00168600 
290168700 
99168800 
00168900 
90169000 
00169:0€ 
00163200 
5016930 

50169400 
90169500 
00169600 


905 
906 
100 
© * ** 
2 xnxx 
ος 
500 
© ww 
600 
790 


° KEEN 
` 


28880.5 


Ge. TINUE 
ENEONOD(:,J,KPl).EQ.O) GOTO 906 
=с=0.5 


ArrR=0.0 


ο στι СЕ 


HHA ARLHS HH HH HHH HH oe HE HH HH HT RE HH SF aE EOE HH OO EH 
HHHHR IH RHH SS eH HH HH HH HH HH EE HE REE RE HE EE RH EH HH 


AP(I,J,X)2(AE(I,J,K) *AW(I,J,K) *AN(I,J,K) *AS(I,J,K) 
+AF (I,0,K)+AB(I,J,K) +AEE+AWW+ANN+ASS+AFF+ABB) 
+CONDE1 +CONDW1+CONDN1+CONDS1+CONDF1+CONDB1 


AZ(I,2,X)2AE(I,J, K) *CONDE1 
AW(I,2,X)-2AW(I,J,K) *CONDW1 
AN(I,2,X)-2AN(I,J,K) *CONDN1 
AS(I,J,K)-2AS(I,J,K) *CONDS1 
AF(I,J,X)-2AF(I,J,K)*CONDF1 
AB(I,J,X)-2AB(I,J,K) *CONDB1 


S?(1,J7,X) =-ROD (I, J, K) *VOLDT 

Seam, J,4)= ROD(I,J,K) *VOLDT*TOD(I,J,K) 

59 (1,7, К) =50 (І, 7, К) +AEER+AWWR+ANNR+ASSR+AFFR+ABBR 
CONTINUE 


TAKE CARE OF B.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 
RADIVS DIRECTION 


20 500 7=2,NI 

DO 500 X=2,NK 

S2(I,2,X)5SP(I,2,K) *AS(I,2,K) 

EU 2,X) -SP(I,2,K) -AS(I,2,K) 

Seng, 2, X)=SU(1,2, K) +2.0*AS(i,2,K) *CPD(I,1,X) 
(T NO X) = SP(I,NJ, К)-АМ(І,Х2, K) 

Sem, wo, X) =5U (1,NJ,K)+2.*CPD(1,NJP1,K) *AN(I,NJ, K) 
БЕ(І,2,5) Ξ0. 

AN(I,N2,X)20. 

ΜΕΣ 


ECC CONDITIONS 


EROS 2-2,NJ 

E SCC <-2,ХК . 

52, X)=SÚ(2 ,-,X)-<AW(2 ,-,X)*C(1 ο) 
SU (NIT, K)7 SU (NI, Z, K) AE (NI, Z,K )NGUNTEBI X) 
ШІ2 ,.,X)-0.9 

K (NI, ,X)=0.09 

me. SINCE 


eno Or SPHERE 


ШІ 150 --2,М1 
ЕО 195 2-2,К2 
БӘСІ, 2,2) -<5Р(ЦІ,2, 2) +АВ(І, 7,2) 
ο ον X)=SP (I, ,NK) +A F (I2, NK) 
ЕЕ -,2)-0. 
Eu ~,\X)=0. 
eect NSS 
asSeM3ur COESFICZENTS AND SCLVE DIFFERENCE EQUATIONS 
ου X-2,NK 
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25169759 
25169890 
22269929 
2221559 


292 10-99 
2517525 
29172300 
25172459 
92175590 
221726959 


^A πΑ 
ΜΑ. w iw 


29170890 
29175990 
00171000 
27172290 
S917290 
39172399 
901724020 
20172220 
2917:690 
00171790 
00172800 
90171900 
2011229 
ον 
29172250 
221723250 
20172400 
οσο 
551726900 
us 172759 
29272890 
99172920 
291135920 
ο... οὐ 
ΓΟ 
зо 0 
55172450 


SIA BA BA 
pl fol КӘ 


SON ISSO 
9221520 
29.1:920 
το σος 
nn Ae ac, 


wow < 7 ow ww 
^ F^ 
wr сез 
Ane s PAA 
- мі 7222 ы 
= Aa ~ = AA 
„ч >» 126450 
AA 
CS ECG 
- ^^ 
apes p^" 
wwe 72522 
AA лл 
Qon que ων 
APAS AA 
20175800 
PA” “= ж. а 
ο 14950 
τσ 
чм =» لاا ب ب ب‎ 
AAs шала 
w w a wow чі Мі 
^^ = mAN 
ANS saan 
w oS a сә, 
сл ое гло 
ων. S мм 
nA“ = = UN MM 
CC seo 
κ ο ο STE ON 
COSC 
AAS TE ИАА 
ορ ο ο 
AAR A 
51025250 
лл 
ο ποτ ο 
Eon ee S 
w w = C v w A 
δα” = ^^ м 
πο ο 
= m ` 
2056222 
= m 6 (eq oN Col tes 
> _ 
2 CU 


300 


С * * * 


113 


111 


C * * * 


DO 300 .-2,NJ 

DO 300 --2,ΝΙ 

ЕБІ  K)=AP(I,J,K)—=SP (172; R) 
CONTINUE 


VOLUME MASS SOURCE INPUT 


VOLT=0.0 
ΙΙ» -6,ΝΙ 

DO 113 J=2, NJ 

DOTIT3 5-16, 17 

IF (NHSZ(I,-,K).EQ.0) GOTO 113 
OXI =XL(1 ,J,K,0,0) 

БҮ ο ο 7757079) 

САКЕ (І, ЈК 70,0) 
VOLsDXI*DYJ*DZK*H*H*H 
VOLT=VOLT+VOL 

CONTINUE 


DO 111 I=2,NI 

DO 111 J=2,NJ 

BO ΠΠ A=16, 17 

IF X«NHSZ(I,.,K).EQ.0) GOTO ШЫ 
ΌΧΙ -ХХ(І ,2,К,0,0) 

DYJ =YL(1l,s .Κ.θ,θ) 

DAK SZ llud A M) 

QQO=Q*E/ (UO*CPO*RHOO*TA) 

QMS= 1.5 

QMS = @MS*H/ (U0 *RHOO) 
VOL=DXI*DYU*DZK 

SU(I,0,K) =SU(I,J5,K) +VOL*QMS/VOLT 
CONTINUE 


SOLVE TOR C 


CALL 3D (2,2,2 ο. Να CG) 


C **** RESET CONCENTRATION AT R=0.0 AND END OF SPHERE 


82 


83 
81 


84 


C w... 


ου ο «τι мара 

АУТ-0.2 

SO B2 1 =2, N: 
AVTSAVE= (C (`, 2/&)7NIM1) 


СОХ NOS 

Comes = νο. 

202 2/5) -АУ”? 
CONTING: 

CONT Nc 

DOSIA = 2l 

SON Sel 

CIE SCC 2) 
C ASPIC (1 USNS) 
CONTIN: 


TOR SURFACE MASS EXCHANGE WITH SURROUNDING 
DG 84 :-2,N. 
DO 84 K=2,NK 
SG Noe ντος ο οἱ 
СЕУ 
=R CY С ο μα ο 


50 80 22.,N.P1 


94 


20176500 
00176600 
00176700 
00176800 
00176900 
00177000 
00177100 
00177200 
00177300 
00177400 
00177500 
00177600 
00177700 
00177800 
00177900 
00178000 
00178100 
00178200 
00178300 
00178400 
00178500 
00178600 
00178700 
00178800 
00178900 
00179000 
00179100 
00179200 
00179300 
00179400 
00179500 
00179600 
00179700 
00179800 
00179900 
00180000 
00180100 
90180200 
00180300 
00180400 
00180505 
00180600 
00180700 
00180800 
00180900 
20181000 
00181100 
55181205 
50181300 
00181405 
00181500 
90181600 
00181700 
00181800 
20181900 
00182000 
90182100 
90182200 
00182300 
00282400 
20182500 
22182600 
00182700 
20182800 
00182900 
00183000 
00183155 
09183200 


80 


run 


ЖХжЯЖЖХЕйкХКХЖХЖХхХзЗХХХХхХххкХ ХХХ КЖ κ καπ απ καπ κκ κ καπ N HK N OK E YK KH YK хж ж 


& 


& 


& 


& 


& 


& 


& 


& 
& 


& 
& 


& 


DO 80 K=i,NKP1 
С(1,2,К)- =C(NI,c,%) 

ο τε U, K)=C (2, -,xX) 
CONTINUE 


RETURN 
END 


SUBROUTINE CALU 


p——Ó———O——€———————————————————————— OÓM 


COMMON/R4/XC(93),YC(93),2C(93), XS(93) , Y8(93), 2ZS8(93) , 


πο ας ον Oo. YC (93) ,022C(93) , DXXS (93) 


nor 1S (93) 


DZZS (93) 


COMMON/BL1/DX,DY,0Z, VOL, DTIME, VOLDT, THOT, TCOOL, PI,@,QR 
COMMON/BL7/N1,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 


»NIP2,NJP2,NKP2,NA, NAP1,NAM1,NB,NBP1,NBM1,KRUN, NCHIP, NJRA, NWRP 


COMMON/BL12/ NWRITE,NTAPE,NTMAXO, NTREAL, TIME, SORSUM, ITER 
COMMON /BL14/HCOEF, TINE, CNT, ABTURB, BTURB, VISL, VISMAX, QCORRT, PM1, PM200185200 
COMMON/BL16/ CONST1,CONST2,CONST3,CONST4,CONST6,NT,UO,H,UGRT, BUOY, 00185300 

Geo, PRT, CONDO, VISO, RHOO,HR,TR, TA, ΠΕΠ ΠΠΙΤΕ, ΤΙΆΒΕ, ΤΜΑΧ, GC, RAIROO185400 


COMMON/BL20/SIG11 (22, 
81613 (22, 
COMMON/BL22/ICHPB(10),NCHPI (10) 
NCHPK (10), 


, JCHPB (10) 


COMMON/BL31/ 
mn9D(22,216,32),000 (22, 
COMMON/B8L32/ T(22,: 
CC IC 2C (22,16,320, (22, 16; 32) 


s S 1 OO 16,32) .S1G22 (22, 16, 32) 
16,32) ,51С23 (22,16,32), 51633 (22,16,32) 
,NCHPJ(10),KCHPB (10), 
TCHP (10) , CPS(10) , CONS (10) 
TOD (22, 6 32) ROD (22; 16, 32) ,POD(22,1 


, WFAN (10) 
6,32) 


ШЕГЕР! VOD (22,107,562 ОО (22,16,32) 
GC TERED 16732) P 22,16,32) 
‚Я (22,16,32) 


ED ο. 2 5:32) 4RPEIT22, 16, 32); BBED(22,16, 32) 


CPD (22; 16, a2 22 16, πο, VPD (22, 16,32), 


" COMMON /BI.34 / HEIGHT (22,16,32), REQ (22, 16 92), 


WPD (22, 16,32) 


SMP (22 716732); SMPP (22, 16, 32),ΡΡ(22, 16,32), 


DU (22,16, 32) ,DV(22, 16, 32), DW(22, 16, 32) 


COMMON/BL36/AP (22,:6,32) , AE (22,16, 322 , AW(22,16, 32) , AN (22, 
176532) "AB(22,16,32), 


AS(22,16, 32), AF (22, 


ЕЕ” 5 32) /52(22, 16,32), Б1(22,16,32) 
COMMON/8L37/ VIS(22,:€ 


16; 32)5 


eCPM (22, 16,32), HSZ (3,2) , NHSZ (22, 16, 32) , RESORM (93) 


CALCULATE COEFFICIENTS 

ШО 102 K=2,NK 
5р2-К-2 

K2l1zX-: 

KMizX-. 

XM2zX-Z 
ШЕ (22 222,NJ 
292-2-2 

2Р1-2-. 
ЈМ1=7Ј-: 
2М2-2-2 
DO icc i=2,NI 

ІР2- г? 1s 

IPiz 

ІМ1=1 

IM2=1I-2 

БС? 5ς.2) IM1=NI 
EEUU .-2.2) IM2=NIV:` 
E .:0Q.3) iM2sN: 
BEN .-c.NI) IP2=3 


ЕЕ МОХА WZNGTE Cr zz 


е 9 4 ою 


SCALE CONTROL VOLUME 


БЕТЕ (29:,2, 
ΟΧΙ -Χ-(: 


2270) 


νον ο 
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00183300 
00183400 
00183500 
00183600 
00183700 
00183800 
00183900 
00184000 
00184100 
00184200 
00184300 
00184400 
00184500 
00184600 
00184700 
00184800 
00184900 
00185000 
00185100 


00185500 
00185600 
00185700 
00185800 
00185905 
00186000 
00186100 
00186200 
00186300 
00186400 
00186500 
00186600 
00186700 
00186800 
00186900 
0018700C 


, 32), COND (22, 16, 32) ,NOD (22, 16, 32) , RHALL (579) 00187 100€ 


00187200 
00187300 
90187400 
00187500 
90187699 
00187700 
99187800 
291879009 
50188000 
20188105 
90188205 
90188300 
00188400 
00188500 
00188600 
00188700 
00188800 
00188900 
00189000 
001891050 
90189200 
20189300 
00189400 
С0189505 
00189600 
00189705 
C018980C 
00189900 
00190000 


ο ιι,.,,κΚ,1,90) 


50196100 

20190200 

ΠΕΙ ορ κα ο) 50190300 
D Js=, J ,К,1,0) 29190400 
D MI=YC(I,JM1,K,;1,0) 00190500 
50190600 

DZPISZL(I,J,KP1,1,9) 50190700 
БЕКЕТ (ТЈ, К 2,0) 70190800 
DZMISZL(I,J,KM1,1,9) 20190900 
50191000 

SURFACE LENGTH OF CONTROL VOLUME 90191100 
20191200 

DXN-XL(I,JP1,K,1,2) 20191300 
DXS=XL(I,J ,K,1,2) 90191400 
DXFSXL(I,J,KP1,1,3) 90191500 
00191700 

DYF=YL(1,J,KP1,1,4) 20191800 
DYB CI J; K Ti 90191900 
DYESYL(IP1 OUR ΤΙ 00192000 
DYW=YL(I J; K; 1,1) 00192100 
00192200 

DZE=SZL(IP1, J; K; 17 19 90192300 
DZWeZL(I ,-,K,1,1l) 00192400 
DZN2Z2L(1, JP 1, Kee 20192500 
DZSSZL(I,J ,X,1,2) 50192600 
00192700 

CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR U 00192800 
20192900 

DALE-AL(IP2, J,5 ae) 00193000 
DAE =xXL(IP1, J K 100) 00193100 
DXW -XL(I ,2,К,1,1) 50193200 
OXWW-XL(IM1,J,X,1,1) 20193300 
00193400 

DYNN=YL(IL,2P2,K,1,2) 00193500 
DYN =YL(1,JP1,K,1,2) 00193600 
215 = (оов Ко) 20193700 
ISSEY ο K; 2) 29193800 
90193900 

DZFF-ZL(I,J,KP2,1,3) 90194000 
DOEEEZS(I,o,NPT,.,.3) 20194100 
DIB =, I,K ,.2,3) 25194200 
ШЛВВ-ФІЕС(І,2,КМ1,.,3) 29194300 
20194200 

€ SEFINE TZEZ AREA ОҒ CONTROL VOLUME 0. 945060 
55194600 

QAYEZDX-*DVT 25194750 
IXYB=DX3*DY3 22294800 
2YZE=DYE*DZ2ZE 55594905 
SYZW=DYW*DZW 59195605 
DZXN=DZN*DXN 5901951095 
DZXS=DZS*DXS 20195209 
90195300 

VOL=DXI*DYJ*DZK 590195400 
VOLDT=VOL/DTIME 59195315 
20195600 

ZXOYN=DZXN/DYN 99195700 
ZXOYS=DZXS/DYS 591951890 
ΧΥΟΖΕΞΟΧΥΣΕ/ΌΖΣ 52195950 
XYOZB=DXYB/OZB 25296055 
YZOXE=DYZE/DXE 50196100 
YZOXWZDYZW/DXW 001 96200 
22196309 

25296400 

c x JSE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 22196522 
€ PHYSICAL PROPERTIES AND FLUX ON THe SURFACES: νι 
502196799 

221295809 
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ου κ ,2Рр1,5),5(1 ,-,K),DYPl,DYJ)*V(I ,221,К) 
GNW=SILIN(R(IM1,771,X),R(IM1,0,K),DYP1,DYJ) *V(IM1,071,K) 
EEE-SIDIN(RU ,2У1,5),5(І ,2,К),БВҮМІ,рҮЛІЗУ(І ,2 ,K) 
BEWSSIELIN(R(CIML,2M1,X),R(IMl,C7,K),DYMI,DYJ)*V(IMI,2 ,&R) 


=SILIN(R(IP1,J,K),R(I О ОГО ОХЕЕ,РХЕ,) "*U(IP1,3,K) 
-5ІБІМ(К(ІМ:,2,К),%(1 ο DXW БХЕ οι 252, К) 
=5111М (К (1М2,Ј, К), А(ІМ1,Ј, К), ОХИИ, ОХИ) *0 (1М1,Ј, Х) 


Ωω GC 
z "ul 


GPE-SILIN(R(I ιτ... K)DBZPI,DZK)*W(I ,2,6Р1) 
SEWxSILIN(R(IMi,S,KPi),R(IMI,J,K),DZP1,DZK) *W(IMI, 2, XP1) 
EESEESILIN(K(I ,-,KM2),R(I ,J2,K),DZMi,DZR)*W(I ,-,K ) 
SBWESILIN(R(IM1,J,KXM1),8R(IMI1,J,K),D2M1,D2K)*W(IMI,.,K ) 


ESZD.5* (GEFrGP) *DYZE 
CWz0.5* (GP*GW) *DY2ZW 


CN=SILIN (GNE, GNW, DXE, DXW) *DZXN 
CS=SILIN (GSE, GSW, DXE, DXW) *DZXS 


CF=SILIN (GFE, GFW, DXE, DXW) *DXYF 
CB=SILIN (GBE, GBW, DXE, DXW) *DXYB 


VISE=VIS(I 2, К) 
VISW=VIS(IM1, J, K) 


ViSN= VIST DIO NIVISI SOK) + 
& МІЗСІМІ/2Р-/КҮЗУІСТІМІ,2,/К))/4.0 
VISS= ο τι ο κ ασ о, КЕ 
& τ,'ὶ ШМ K)*VIS(IM1,J,K))7/4.0 
VISF= ШЕТ srl) ντο ЈК) 
& ο ο GSE] EVIS(IMI, I,K 7/4.0 
VISB= Т АН ντο ιτ ο, στ 
& ο ο Mig АМТ уу αμ ο, «8.0 


VISN1=ZXOYN*VISN 
VISS1-2XOYS*VTSS 
VISEL=YZOXE* VISE 
ViSW1-Y2ZOXW*VISW 
EESEI-XYOZFr*VTSFT 
ENSBI-XYO2S3*V:53 


Æ — (ABS (C=) *CE) *DXz/2X:/.6. 
ESUUASS(CI)-CZ)*DXE/ZX?2:/.6. 
242s-(A3S(CN) cCW) *DXX/Z2XMz/-6. 
-«M- (ABS (CW) -CW) *DXW/2XZz/26. 


ESSCUABS (CN) *CN) *DYP: *2VJ/ (DYN* (DYN*4DYS ))/8. 
eNM- (ABS (CN) CN) *DYPZ* 27J/ (SYN K (DYN+DYNN)) /8. 
SSP=(ABS(CS)+CS)*DYM1*DYJ/(DYS*(DYS+DYSS))/8. 
ο (ABS(CS)—-CS) *DYM1=*2V2/ (DYS* (DYS+DYN ))/8. 


CEP-(ABS(C?)7CP) *DZP- *ZZK/ (2ZF* (DZF4DZB 18 
C 2M- (ABS (C7) CP) *D2ZP- *22K/ (ZZF* (DZE*DZFF))/8. 
C3P- (ABS (C3) *CB) *DZX. *22K/ (DZB* (DZB*D2BB) ) /8. 
ШЕ (А55(<3)-С3) "р2У1<22К/(228% (02В402Ғ ))/8. 


RL(I,4,X)-7-7.2*CE*CEP-CEM* (1.-DXE/DXEE) «CWM* DXW/DXE-V- SE1 
AW(l,-2,X)9 .S*CW-CWM-CAWP*(1.-DXW/DXWW) «CEP*DXE/DXW*«V:SW1 
AN(I,-,X)o2-7.2*20YZ/2YN* CNTCNP -CNM* (2. -2YN/DYNN) «CSM*DYS/DYN- VL SNZ 
А5(1,-,5)- .5"ВҰ2/9У5%С5-С5М%С5Р%(1.-2Ү5/рҮ55) «СМР"ОУХ/рҮ5%У1551 
Ағ(1,2,58)--.2“02К/р2:2“СГ-СЕР-СЕМя(1.-22Ғ/О2ЕҒ)%СВМ%023/22Ғ-МІ5ҒІ 
ο О АИ .2792К/023-28-СвМ-СВР%(1.-22В/0238) «Сгре”22г/р2В-У21531 


97 


20196900 
09197000 
00197190 
92197200 
201973009 
00197400 
20197500 
90197600 
50197700 
00197800 
20197900 
02198000 
00198100 
00198200 
20198300 
20198400 
20198500 
90198600 
90198700 
00198800 
00198900 
00199000 
00199100 
00199200 
00199300 
00199400 
90199500 
59199600 
00199700 
00199800 
00199900 
00200990 
00200100 
00200200 
20200300 
60200400 
20200500 
20200620 
20200700 
20200800 
20200900 
00201220 
0201190 
2020125 
20201300 
5020149 
52202525 
92516955 
2202795 
30201800 
292201900 
09202990 
290202155 
00202290 
90202300 
22202400 
202102500 
00202600 
20202705 
22202820 
529202900 
22203095 
20203150 
20293200 
25203300 
s. 033.0 
202103 320 
22033302 


(7 ΟῚ 


805 


806 


807 


808 


809 


810 


ро = *OXE/DXES 
σοι ο ο ΟΡΟ ΕΣ S] 


ο τος 


AWwW-2-CW?*DXW/DXWW 
AWWR2ZAWW*UPD(IM2,Z,X) 


CONTIN E 


5> (O. νο) οσο ο 


ANN=0. 
ANNR=C. 
SOTO 876 


ANN=-CXM* DYN/DYNN 
ANNR=ANN*UPD (I, 52, Κ) 


CONTING=E 


NEUSS. 


ASS=0. 
ASSR=C. 
GOTO 828 
Аз5=-—С5Р 
ASSR=ASS 
CONTIN. =z 


PS IL. 
ΞΞΞΟ. 
FrR=9. 


ποιο 8.2 


σετ ος τοσο рд 


Агт &= Аз: 
CONTIN E 


62. 


ABB=0. 
ABBR-C. 
ΒΞ 
A53032 
A33R=As3 


απ. σα ταν  -- 
SONEN 


Z2zzz2z22222222 


ádspunzuuuszri 


w 


90: 


902 


903 


904 


UPS UK) 


ο δι AM2) 


ππυσσππαπεη αμ αςσσᾳα σα η από ασσα βπσαπσασσα 
REKTKTTRTTSHREHKHRHEKLHKSHKTKHHHRRHR HH SARK ARES eHRAs 
SOUNDARIES 


20203340 
25253459 
29203220 
222036250 
22203759 
25203800 
99203900 
25204550 
552064155 
29204200 
25204355 
25204490 
20204500 
22204600 
50204705 
29204800 
20204950 
292050920 
292205220 
50205200 
292053090 
70205450 
20205500 
29205600 
29205700 
20205800 
22205900 
25206520 
25206190 
25206255 
20206300 
202064909 
22206520 
20206600 
22206755 
29206800 
29206900 
222072559 
25207:55 
25207250 
22297359 
222274255 
22291222 
25257655 
22227730 
222578255 


д <^^A 
2259 


2258524 
225855 
22258225 
70208 a0 
55208455 
252208522 
22208655 
252258722 
29208825 
25258920 
¿2695 9 
9259. 
252032252 
25202355 
222594522 
232235: 
< ч 


οσο.» 

2265327! 
w^ 

м ы. мо 2 Ç < < 
= ΓΑ 
"odio de. 
FIN OS IN, ааа баға 
„ыбы Л x? x? 
PARRA AZAR 
292259 
-———————^m 
< ` æ اب‎ чі м ы 


ΩΩ 


oan 


с) 


ABB=0.0 
ABBR=0.0 


BOS CONTINUE 
ШІ ορ, «ΕΙ1}.50.0) σοτο 906 
АҒҒ-5.5 


ArFR=0.0 


906 CONTINUE 
H##H#HHHHHxHHHHHHHHRHHHHHHRHEHHHHHHHHHHHHHHHHHHHHHHHHHRHRSRERRHHR# 
HHHHHESSEFFHFHHRHHHRHEHRHERHHEHRHHHHHHHHHHHHERHHHHHHERRHRRHEREaRHH#H# 


e SU FROM NORMAL STRESS 


ο σι κ ,J,K)-(UC(IP1,J,K)-U(I ,J,K))*VISE/DXE) *DYZE 
RW=(STG11(IM1,J,K)-(U(I ,J,K)-U(IM1,J,K) ) *VISW/DXW) *DYZW 
EXOGSIGI2(I,JP1,K)-(U(I,JP1,K)-U(I,J ,K))*VISN/DYN) *DZXN 
ШЕ (515:2(1,7 ,K)-(U(I,J ,K)-U(I,JM1,K))*VISS/DYS) *DZXS 
ШЕН IGISOI,J,KPI)-(U(I,J,KP1)-U(I,J,K  ))*VISF/DZF) *DXYF 
ELUSIGIS(I,J,K )-(U(I,J,K )-U(I,J,KM1)) *VISB/D2B) *DXYB 


* x * 


SU FROM CURVED STRESSES AND ACCELERATIONS 


EU/GI2-20.2*(SIGI2(I, JP1,K) *SIG12(I,J,K)) 
АМС:3=0.5" (51613 (І, 7, КР1) +51613 (І,Ј,К)) 
EUSC2ZSILiN(SIG22(1I,J,KX), SIG22(IM1,J, K) , DXE, DXW) 
AVG33sSILIN(SIG33(I,J,K), SIG33(IM1,J, K) , DXE, CXW) 


А01-0(2,2,5) 

ΙΙ ,2PI1,K),V(I ,J,K),DYJ,DYJ, 

& Wal ΡΕ αλ ο (IM1 J, K) DYJ ,DYJ, DXEÉE,DXW) 
το ινα ,J,KP1),W(I ,J,K),DZK,DZK, 

& Wiehe, nel, WIM], I,K), DZK,O2n, OX=,UXW) 


EEESGESCN(RIOO,S, KO), RCOML,J,K) , DXE, DXW) 


ARUZ2-2AR*AU.*AU2 
ARU:32AR*AU1*AUJ3 
ARU22-2AR*AU2*AU2 
ARU33-AR*AU3*AU3 


ARYz(AVG12-ARUI2)*D2K* (DXN-DXS) 
RRZs(AVGZ3-ARUI3)*DYZ* (DXF-DXB) 
ARX-(AVSG22-ARU22) *DZK* (DYZ-DYW) * 
& (AVG3537À8RU33) *ZYZ* (DZE-DZW) 


ВР (2,-,х) =А= (1,2, х) +АМ(І, 7, К) +АМ(І, с, К) +А5 (І, 5, Х) 

5 . -AF(1,2,X)+AB(I,J, K) +AEE+AWW+ANN+ASS+-AFF-A3B 
SP(-,2,X)2-7(ROD(Z,2,K) *DXWeROD ( IM1, Z, K) *DXE) / (OXW*DXz) *VOLDT 
SU(Z,2,X)9 (ROD(i,2,K)*DXW*ROD(IMI1, 2, K) *DXE) / (DXW+DXE) *VOLDT 

& οσο) 

ENS, X)-S0(i,7,X) *DYZ*DZK* (P(IMI1,J, X) -P (1,2, X)) 
~AEER +AWWR+ANNR+ASSR+AFFR+ABBR 
-TRE-RW-*RN-RS-RF-RB-*RRY-RRZ-RRX 

E ee tn) y= (2 (1), 4) REO (1,5, K)) *OXW*CCS (XC(2))-(R(IM., 

ОО DKE “COS (XC(IMz))) 7 (OXW+DXz) "VOL 


7 -AKE CARE OF S.C. THRU AN,AS,AE,AW,AF,AB,S? AND SC 
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90210100 
50210200 
20210300 
25215400 
20210500 
20210600 
00210700 
20210820 
50210900 
20211599 
902112926 
00211200 
00211300 
90211400 
90211500 
50211600 
29211700 
90211800 
90212900 
00212000 
00212100 
00212200 
00212300 
00212400 
00212500 
22212600 
20212700 
70212800 
00212900 
00213000 
ου, 5 οὐ 
20213200 
00213300 
00213400 
00213500 
90213600 
90213700 
20213800 
55213900 
50214555 
20214109 
59214250 
592143059 
202144С0 
59224552 
20214600 
202247120 
20214800 
22214900 
29215226 
292352252 
2590215205 
οι ο 
00215400 
90225555 
50215650 
20215709 
25225809 
29215292 
20216050 
ОО2 16:55 
55216205 
25216390 
25216455 
2М255500 
55216600 
20216752 
292216805 


500 


KAR 


Оо 


502 


690 


C HH HHHHEKE SE TCHHES TSA KHER EERE EEE H EE EE HT HHH HEE HE OHH EH HH HH 
C HHKFKKKKS TAT SRAKHE SERA KE Se eRHEKERHKKHEREHHH HE HHH 


C Жая 


293 


SEU UXPIZSP(I,Z2 KI SES 


ӨШГ(І,2,5)-50(1,2,5у-2,500 С, АТТАП 


Sry X)eSsQ NI,X)-AN(I,NS,R) 
AN(I,N2,K)20 

AS(I,2,X)20. 

CONTINUE 


Swale CONDI οἱ 
DO 5C2 X=2,NK 


DOTIO 5=2,1Ј 
SU (2 5751-50 (2 rw K) +AW(2 ου ο. 


SU(NI,0,4%) =SU(NI,J, K) +AE(NI,J,K) *U(NIPI,J,A) 


AW(2 ,2,К)-0.0 
АЕ(М1,2,К)-0.5 
CONTINUES 

FRONT AND BACK WALLS 


DO 600 I=2,NI 
DO 600 ;-2,NJ 


SLIP WALLS 
SE. , 2) ™5P (1,5, 2) 4AR( leva) 
SP (1,0,NK) =SP (I,0,NK) rAP (I, 2, NK) 
AF(I,,NK)20. 


ΕΙ, ` 2)20. 
CONTI- z 


EE PING IP .EQ.0) GOTO 705 


MODIFICATION FOR DECK BOUNDARIES 
UC τος δι ὅσα 


ΤΏΞΙ(353(Ν) 
ІЕ-ІЗ-КСЕРІ(М)-1 
:3M12:z- 
ТЕР1=1Е-1 
SB=JCH?3 (N) 
E=JB-NCHPJ(N)-; 
к 
Ἔρι--Ξ-7 
<B=KCH23 (N) 
XE-KB-NCEBK(N) -: 
X3Ml1-Xs-: 
κερ1-κΞ-- 


SOIC: SB, 
29001052 Х=КВ,К== 
AERO. pop a) =U. 
АИ (ІЕР.,5,к) =0.5 


C2 et r5 


COND NOI 


ZONES 2=-3; E 

Semmes ЕКВ, КЕЕ: 
ӘВ(І,25271,5)-5Р(І,саМ УА Та 
АШ -:,.-)-ο.ῦ 


SSE ASSP (LSE AAS E) 


АШ 2:,51-9.2 
COND NCE 
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59216900 
00217000 
00217100 
00217200 
90217300 
00217400 
20217500 
00217600 
00217709 
00217800 
00217900 
00218000 
00218100 
00218200 
00218300 
00218400 
00218500 
00218600 
00218700 
00218800 
00218900 
00219000 
00219100 
00219200 
00219300 
C0219400 
90219500 
00219600 
00219700 
00219800 
00219900 
00220000 
00220100 
00220200 
00220300 
00220400 
00220500 
50220600 
90220705 
00220800 
50220965 
00221CCC 
00221100 
00221292 
90221305 
20221465 
70222525 
22221605 
55221755 
50221800 
002219CC 
50222000 
00222202 
00222206 
502223522 
99222450 
90222505 
90222600 
20222755 
20222805 
00222900 
00223000 
20223102 
22223200 
22223352 
00223400 
90223509 
55223602 


оо 


о 


e 


о 


O00 


mS IE 

J=JB,JE-i 
,KBM1)-SP(I,J,KX3M1)-AF (I, 2, KBM1) 
,КВМІ)-9.0 


rj U O O 
кы 
+ + ο ο 
CASA D 

бк! 


o Uu 


СИУ, КЕ) =5р (1,5, КЕ) -АВ(І, Ј, КЕ) 
АЗ(І,Ј, KE) =0. б 
206 CONTINUE 


*** FOR THE CELLS INSIDE OF THE DECKS 


DO 104 I=IB,IE 
DO 104 J=JB, JE-1 
5ο 1654 K=KB, KE-1 
ЕН (2, 7, K) =-1.0E20 
AW(I,J,X)20 
АЕ(І,2,К)-0 
А5(1,27,К)-0. 
АМ(1,2,К)-0. 
50(1,Ј, К) =0 

104 CONTINUE 

ШО CONTINUE 

105 CONTINUE 


HHHHHSKKHHKH ERE R ARATE RHE THERE ET EE THEE EH EES EHTS HE HEE EHH HH 
HEHE RHKHHRHRH HR HR ERE RTHHHHHHEREEH EHH EEE RHEE ERE RE EH HET HS ES 


* ** 


ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 


DO 301 K-2,NK 
DO 301 J22,NJ 
DO 301 i=2,NI 
2УҮ2-ҮҺ(1,2,5,1,6) 
ВЕКЕ (-,0, 5,1,0) 
Be 2—-DYJ*0ZK 
ο A) =AP (1,0, 4K) —S2 (1, J, K) 
Bee, , X) =DYZ/AP (I,J, K) 
ЕЭ ОХТІКУЕ 


айы SOLVE FOR U 


m 75.7 (2,2,2,К:,52,5К,0) 
ЕЕ - --ἑ.Ν:Ρ- 

КОО ЛА 2-2,У2Р1 

BE ee! 

2/0, ХЕРІ)-/(І,2,Х5) 


EN C NTINUE 


9 I-.,NIPI 

ЕС 19 Х-:,ХЕРІ 

meet, =, K) =) (1,2, K) 
INE C NTINUE 


EN SCH:2.:0.0) GOTO 112 
FRRRSSHASHF SHEKHAR EHS eSeHH HHH HHKHEH HH HHH eee HR RHR HERR Ree RHEE 
фзасапссваффисосававИФаоя ғ ваз фффРдфЕІЖІРЛДЕН 


μην. κ 72: νου INSIDE OF DECK 
КОТ С 5-:,ХМСНІР 
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22228150 
292223800 
25223900 
22224205 
252224150 
20222200 
09922430C 
22224400 
20224505 
25224600 
22224700 
00224800 
00224900 
00225000 
00225100 
00225200 
22225300 
20225400 
00225500 
00225600 
090225760 
00225800 
00225900 
00226000 
00226100 
00226200 
00226300 
22226400 
20226500 
00226600 
59226705 
50226800 
20226900 
29227000 
0227100 
59227200 
22227300 
00227400 
00227500 
25227600 
222271209 
22227800 
25 27950 
9228905 
Ὁ 
2228209 
222283002 
2222845С 
29228500 
29228600 
529228755 
90228860 
22228900 
2222952 
22229-90 
0022920C 
н 
2022920 
55229522 
222296525 
00229100 
22229895 
20222990C 


9422 AAAA 
умы мым 


ο ο ον 
252235295 
00230300 
292304950 


Ооо 


с О 


(22 


Bete σα NU 
¿B=JCF2B(N) 
J==J3+NCHPJ (N)—1 
KB=KCHPB(N) 
хЕ=КВЕМСАРК (М) –: 
ΟΙ TSB, IE 
JOSIUB JeoÓd,JE-! 
ο ος ταδε 
0(1,2,5)-0.0 

208 CONE NUS 

-20 CONT NJE 

112 CONTING 


HHHFRHHRH SA SEHR EKA SRR RR REEEE EHE TERE EERE HH HE HH HHH 
KRikktitkttustunsssatttttuatetuttutsutttrtrer rcc teer αμ κὶ καὶ καὶ μα ἢ κ 


RETURN 
END 


С ЕЕЕ u ιο  — ————— —Ass——VVWNS -ᾱ-- . — _— u fŠ. Ta 
мада МАМ Ww * Wk Gk wc Ww Gt WX Wt OX T T É € CA x Á Gt Om ORE CE < x < AMD NX OE Ge OO C OX TE E JE OX X OX X x W. CES EO E ow XX 


SUBROUTINE CALV 


wow * * wow wow wow wow wow * wow w * * wow ow wo* «к кк x É É wo OR X E ox ox wo RON X NX X VF E JE J XXX X X x X 0X X 


COMMON/R4/XC(93),YC (93), 2C (93), XS (93) / Y 8093) 12509590 


& -XXC (93); 


DYYC (93) ,DZ22C (93) DxXxX5 39 


,0ҮҮ5(92)79225198) 


COMMON /BL ` /ΟΧ, DY, 22, VOL, OTIME, VOLOT, THOT, TESTE 
COMMON/3L7/NI,NiPi1,NIM1,NJ,NJP1,NJM1,NK,NKP1, NKM1 


& , NIP2, NZ?2, NKP2, NA, NAP1, NAM1, NB, NBP1, NBM1, KRUN, NCHIP, NJRA, NWRP 


СОММОМ/3112/ NWRITE,NTAPE,NTMAXO, NTREAL, TIME, SORSUM, ITER 
COMMON/3L°6/ CONST1,CONST2, CONST3, CONST4, CONSTG, NT, UC, &, UGRT, ύον ος... Ы 


ο par, CONDO, у: SO, RHO0 FR TR TA OIE TWRITE, TTAPE, 


50230500 
29230600 
20230700 
20230800 
00230900 
40231000 
50231190 
00231200 
50231300 
00231400 
90231500 
00231600 
00231700 
00231800 
00231900 
00232000 
00232100 
00232200 
00232300 
00232400 
00232500 
00232600 
00232700 
00232800 
00232900 
90233000 
20233100 
00233200 
20233300 
50233400 
00233500 


TMAX, GC, RAIR00233700 


COMMON/3L20/SIG11 (22,16, ao SICl2 (22, 16, 32) οι τρ) 15,232) 00233800 
& ‚51613(22,16,32),51623(22,16,32),51633 (22,16,32) 00233900 
COMMON/BL22/ICHPB(10), NCHPI(10), JCHPB (19) 7 NCHPJ (10 οσο ο 00234000 
& NCHPK (10), TCHP(10) , CPS(10), CONS(10)  WFAN(10) 00234100 
COMMON/2_3_/ TO0(22, 16,32), ROD (22,16, 32) 7 POUN 2a, eee 00234200 
 -ωο(22,-5, 32), που (221632) νου 2 1θ ο ο А 00234300 
SCOMNON/8.,327 7(22,.6,32),8(22,16/32) P (222 c 00234400 
& 1o (22, 26,32) ,0 (22, 16,32) ,V(22, 16,32) ,W(22, 6, 32) 20234500 
COMMON ο ου Т792(22, 16, 32), RPD (22,16, 32) , PPD(22, 16, 32) 20234600 
6 ,222(22,.6, 22 020 (22,16,32), УРр (22,16,32) ИРОК oT 20234700 
SOMMON/S.36/ =E СНЕ Ὁ 92} REQ(22, 2699200 50234800 
& 1:2, 5.2), sMPp (22, o 32 pp F n 59234900 
5 22(22,:5,52),0У122,1622) ШЕР ШО 59235009 
<5УМ9Х/32.36/АР2(22,265,32),А> (22, :6,32)7,А44(22,:6,32),АХ5(22,:6,32) ο. 
& AS(22, .6,32), Ar (22, 26,32), AS (22, cna 20235200 
& 5- (22775, 321,57 (22, 6, 32) , R1 (22, 16, 32) 59235300 
СОММОК/3237/ “25 (22,16,32), СОМО (22,16,32), МОЮ (22,26,32), ЯИАСЕ (ТЭЛА 
5 Rou (225, ο. ESZ (3,2) ,NHSZ (22, 16, 32) , RESORM (9a? 50235500 
50235600 

292235700 

“<5 οσο δις COEFFICIENTS 50235800 
20235900 

O ОС xX=2, NK 50236000 
. XKD2=K+2 90236100 
1 50236200 
A μα. 50236300 
ХМ2=5-2 20236400 
ου. ο 2-—3,N- 55236500 
2= +2 20236600 
Jr cr 20236790 
αν — 20236800 
2 22236900 
ЛЕ 2 2-2,2 20237007 
«οτι. 59231 Шш 
ae 55231208 
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C *x* 


@ * wx 


O 


узе: 

:У2-2-2 

ІҒ (2.52.2) ІМ2-МІМІ 
17 (1.29.МІ) 1Р2=3 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


DXPI-X. (IP1,J7,K,2,0) 
exe -Х-(ІТ ,25,К,2,60) 
oXM1-X-(iM1,7,K,2,9) 


Εν (7, 0Р1,К,2,0) 
ШІ =Y (το ,5,2,0) 
DYM?=Y_(1I,JM1,K,2,9) 


EZPIZ2L(1,J,KP1,2,0) 
БОК ο. τα, 5,0) 
DZM1zZL(I,J,KM1,2,0) 


SURFACE LENGTH OF THE CONTROL VOLUME 


DXN-XL(I,JP1,K,2,2) 
DXSeX-(I,J ,K,2,2) 
BNEEXL(I,J,KP1,2,3) 
DXBEXL(I,J,K ,2,3) 


Bee 22 (2, 5,KP1,2, 3) 
ENHTLYS(,J,K ,2,3) 
EET (:PI,J,K,2, -) 
PENEL (I ,2,К,2,1) 


ШЕ-2ІСІР1,,.7,К,2,1) 
ο κεί ,2,5,2,1) 
BENZZL(I,JPl1,K,2,2) 
LC, ,К,2,2) 


ЕЕ СЗАО СЕКСЕН Or TEE STAGGERED CONTROL VOLUME 


ЕЕ-Х-(2Р2,2,5,2,!1 
МЕ -Х-(ІР:,2,К,2,:) 
κι: ,2,К,2,:) 
JXWW-X- (IM1,2,K,2,.) 


ο τν (-,2P2,X 
2 


ب 


ο να: е 


eee (2,2 ,5,2,2) 
SYSS-VL (D SMU X 2.2 


E 5=2—(:,.,&522,2,3) 

ШЕН -2-(:,2,К91,2,3) 

 ЕБО -2-(.,2,5 ,2,3) 

Beoo-2_(.,5,KM1,2,3) 
Ш2252 LHE ARZA OF THE CONTROL VOLUME 

KESK: DY? 

BAY S= oX3*OYS 

ieee — Y= *DZE 

ΛΟ "ΌΖνη 

ΟΖΧΝΞΞΖΟΌΧΝ i 

EZXXS-2ZS*OXS 


BESEZEX.T2YJ*22K 
το ο. νε 


EXOYNTAZXN/DYN 
ZXOYS-22XS/D2YS 
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25237300 
20237450 
520237520 
00237600 
00237750 
50237860 
09237900 
00238007 
00238100 
C0238200 
00238300 
00238400 
00238500 
00238600 
00238700 
00238800 
00238900 
00239000 
00239100 
00239200 
00239300 
00239400 
00239500 
00239600 
0023970C 
00239800 
00239900 
59240000 
00240100 
C024C200 
00240300 
00240400 
00240500 
00240600 
00240700 
002408900 
00240900 
00241055 
00241-59 
00241250 
T 
2024-45 
0255522 
5024: 65 
50241722 
0024 8050 
55241955 
22242522 
23242--5 
2524225 
90242300 
09024240 
00242522 
2524265 


20242722 


5024285 
02242922 
20243552 
002430 
20243222 
09243355 
0024329 
20243322 
2024365 
2008065 
02 22382 
20243922 


252445255 


qo 


©) 


€) €) 


XYOZFZ2XVF/DZF 
ΧΥΟΖΒΞΟΧΥΒ/ΌΖΒ 
EU E ZE/DXE 
YZOXW=CYZW/DXW 


SSE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 
PRYSICAL PROPERTIES AND FLUX ON THE SURFACES. 


GEN*Si_LIN(R(IP1,0 ,K),RC¢(I,0 K) OXP OXI U m a 
GES=SILIN(R(IP1,0M1,K),R(I, JM1,K) ,DXP1,DXI) *U (I> 
GWNESILIN(R(IMI,U ,K),R(I,J ,K),DXM1,DXI) *U(I 
GWS=SILIN(R(IM1,JM1,K),R(I,JM1, K) ,DXM1,DXI) *U (I 


οὐ δι. IN(R(I,-P1, Ky, R(12 ο hO DYN)*V(i1,22-,X) 
GPEOSS.L.NIR(O,2MI,K),R(I,J ο ο ο ο F V Ds 
GS =SILIN(R(I,JM2,K),R(I,JM1,K) ,DYSS, DYS) *V(1, JM1 , κ) 


GFN=S¿LIN(R(I,J ,KP1),R(I,J “KI (DLR 7» 
GFS-S--:N(R(I,JMI,KPI),R(I,JM1, K) , DZP1, DZK) *W(I,cV 
GBN-SILZCN(R(OI,2. ,KMI),R(I,J — ,K),D2M1,DZK) *W(I,- 
СВ5=5:2:М (К (І, ЈМІ, КМ1), В(І,ЈМІ, К) ОРИ DL И 


CN=0.5* (GN+GP) *DZXN 
CS=0 = (GP>GS) *DZXS 


5 51. 1 N (GEN, GES,DYN DYS ИТЕ 
CW=SiL iN (GWN, GWS, DYN, DYS) *DYZW 


CE=S-- -N(GFN, GES, DYN DYS) *DXYE 
CSeSIL--N(GBN,GBS, DYN, DYS) *DXYB 


VISNZVIS(i,. ,K) 
VISS=V S(I ΙΕ RE) 


VISE- (ViS(iPl,J ο στο BPO 
VIS(IPl1,2¿M1,K)*VIS(T FM], K))y a 

ViSW= (УІЗ(ІМІ,2 ΠΡΙ, ТЕТЕ 
VIS(IM1,3M1, K I VIS (TOMI 74009 

VISF= (VIS(l, 0 АРТРИТТЕ 

& УІЗ(Т,2М1,КРІ) «УТС6ТТ, М 5 

ν 5 (V.S(: ,— πι ο σι Oo 


VIiS(:,2M1,KM1) VIS (T MEE E Eo 


TSN SZXOYNTVI GN 
5 ΧΟ 5} 
ΞΕ σοκ ΞΕ 
VISW.2Y20XW*V:.SW 
κο ο κ ορ ο το. 
VISB.-XVOZB*VISS 


VePR(ASS(CE) 65) ΌΧΡΙ «ΟΧΙ (OXE* (Ox Ee OxN 8: 
eoM=(=35 (CE) -Cz)*DXP1*OX1/ (2xXE (9 XE TINE EDE E 
CNP = (e235 (CW) +CW) *OXM1*DXI/ (DXW* (DXW+DXWW) ) /8. 
CAM= (-55 (Ca) —CN) *DXMI*DXI/(DXW* (EXINSOXEGUUDSE 
Soe —\ 525 (CN) ον ουν ον.» 

ο 45S (CN) HON DYN Oo 
52-(Е35(25)-С5У 5226 М6 

ο ος αΞδιςδ)σορ ο ο ο ος 


<ӘЕРе-(АЗ35(С2)-Сг) <9221%02К/ (ӘЛЕ OO Е 
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55244155 
59244200 
00244 30C 
99244400 
00244500 
00244600 
90244700 
00244800 
00244900 
00245006 
00245100 
00245200 
00245300 
00245400 
50245500 
00245600 
00245700 
00245800 
00245900 
00246000 
00246100 
00246200 
00246300 
00246400 
00246500 
59246600 
20246705 
90246800 
00246900 
00247000 
20247150 
99247299 
00247300 
00247400 
00247500 
00247600 
002477250 
00247800 
00247900 
29248000 
55248100 
20248200 
50248350 
252248405 
29248500 
227248600 
05248705 
22248805 
55248905 
20249000 
00249100 
79249200 
00249300 
09249400 
50249500 
20249605 
22249725 
29249805 
252499205 
205252555 
25250225 
25250222 
22250329 
525045 
2250522 
0250609 
20250 ος 
9252899 


ОО 


Оо 


() 


OO O 


801 
802 
803 


804 


805 


806 


807 
808 


S11 


GEME(AB3S(CF)-7C2)*D2P:*DZK/ (DZF* (DZF*DZFF))/8. 
CBP- (ABS (CB) *C8) *DZM1 *22K/ (DZB* (DZB*DZBB) ) /8. 
CBM= (ABS (CB) - CB) *DZM?2 *22K/ (DZB* (DZ2B4D2F ))/8. 


AE(I,J,X)2-.5*DXI/DXE*CE«CEP-*CEM* (1.- DXE/DXEE) *CWM*DXW/DXE-*VISE 
AW(I,2,X)-2 .5*DXI/DXW*CW+CWM+CWP* (1.+DXW/DXWW) +CEP *DXE/DXW+VISW1 


ο - A) =— .5*CN+CNP+CNM* (1 .=DYN/DYNN) +CSM*DYS/DYN+VISN1 
E,5) 5ο; TDS DYSSI +CNP*DYN/DYS+VISS2 


AF(I, Z,“ 


)z-.5*DZK/DZ7 *CF-CFP«CFM* (1. *D2F/DZFF) *CBM*DZB/DZF-«VISF1 
АВ(1,2,5) 


.9 *DZK/DZB*C3+CBM+CBP* (1 .+DZB/DZBB) +CFP*DOZF/DZB+VISB1 


ESS--CEM*DXE/DXEE 
AEER-AEE*VPD(IP2,J,K) 
CONTINUE 


AWW=-CWP * DXW/DXWW 
AWWR-AWW*VPD(IM2,J,K) 
CONTINUE 


Ἱ (бу 
ANN=0. 
ANNR=C. 
GOTO 806 
ANN=-CNM* DYN/DYNN 


.М2) GOTO 805 


ANNR=ANN*VPD (I, J0P2, X) 

CONTINUE 

ШЕ (2.5.2.3) СОТО 807 

А55-0. 

ASSR=0. 

GOTO 808 

ASSz-CS2*DYS/DYSS 

ASSR-ASS*VPD(I,JM2,K) 

EONTIN.Z 

ο νο κκ) GOTO 809 

AFF=0. 

ArFR=C. 

5070 8:2 
г5--С2:УМ%“72Ғ/222 

E. уо (2,5 крэ) 
EIN. 

EXE S.-..2) GCTO B.. 

ABB=C. 

АВВЕ-0. 

GOTO 8.72 

ABBz-CZ2*223/02BB 

ABBR-AZSS*VPO(I,.,KM2) 

RESNTIN.- 


Езкейспанаалппцасгциядҙ 
GAEZZSZZIZZZZZEEZESZZEZEE 


xxx 


ODIS CATION FOR 
ο ο τος 
ENOL (TMI, S; K). 
AWW=C. 
ANWR=0 
ое олова 
οσοι ο] 


RASSEZEZEZEZZEZZIZEZZZEZZZEZZSEZZEZEZSEZEEZENREIEE 
GEZZZEZEZEEZEIIIIZIZSSEIZEZZEZEIZEE) 


DECK SOUNDARIES 
ЕО.2) 2070 901 
Ша 5223 902 
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29250900 
502519000 
00251490 
90251200 
00251300 
00251400 
09251500 
20251600 
0251700 
00251800 
00251810 
00251820 
00251830 
00251840 
00251900 
00252000 
00252100 
00252200 
00252300 
00252400 
00252500 
00252600 
00252700 
00252800 
00252900 
00253000 
00259100 
20253200 
00253300 
00253400 
00253500 
00253600 
00253700 
00253800 
00233900 
00254000 
29254100 
20254200 
299254300 
50254400 
00254500 
59254600 
99254709 
252254800 
00254900 
09255000 
22292200 
25255225 
252922322 
592554920 
20255500 
90255600 
220937020 
00255805 
99255900 
00256000 
50256100 
29256255 
59256300 
99256459 
00256500 
25256609 
55256720 
55256800 
22256900 

0251005 

2250250 

22512509 


(} 0) 


о 


(} 


902 


J03 


904 


905 


906 


.E0.0) SOTO 903 


CONT E 
Тора к) 
ANN=0.0 

ANNR=C. 


.EQ.0} GOTO 9034 


COTTE 

-F (NOD(I,J,KM1) 
ABB=0.0 

ABBR=C.90 


. EQ 0)  GOTO S05 


ΟΝΤΙΝ: Ε 

= ΑΡ Το πε) 
AFF=0.ç 

АГЕК=0. 9 
CONTIN Z 


.EQ. 0) ΠΣ 


HERES SHS STH HHH HHRHHRHERER HHA RRR ERE SH EHS FH HH 
EStsszstkygszbHESnREBSHNHE ARTEHHEESTEERSSEERESKEHEESREEEHERNEEEBEHEESTERESEYEK 


š 


š 


δ 


5 


SU FROM NORMAL STRESS 


АХ-(6:522(1,2 ,К)-(У(1,2Р1,К)-У(І,72 ,%)) *VISN/DYN) *DZXN 
А5-(5:522(1,2М1,К)-(У(2,2 _,X)-V(I, JM1,K)) *VISS/DYS) *DZXS 
АЕ- (82522 (ІРІ,2,Кү-(У(ТР1,2,5)-У(1,7 RIE VISE DET 
RW=(SIS1l2(I ,J,K)-(V(I ,J,K)-V(IM1,J,K))*VISW/DXW)*DYZW 
RF=(SIS23(I,J,KP1)-(V(I,J,KP1)-V(I,J,K ))*VISF/DZF) *DXYF 
R3=(SIG23(I,J,K 3-(У(І,2,К )-У(І,2,ХМ1)) «УІ5В/р2В) "ЭХҮЗ 


SU FROM CURVED STRESSES AND ACCELERATIONS 


AVGI?-..2"(S:GI2(CIP2, S40 sre CIS АВ 
AVGOSEL.2*(S2623(1,2, X929 -81G23 (EOSDEM 
ENVGIISSILIN(SIGil(I,2,X),S 2S0; 7 MIT ИИВ) 
АМБ43-5-.25551523(1,2,5), 5258, СМ Еа 59 


Peay VS, orn) 
πο ο νο νο αυ ο ο Sm 

ыр „ома, Криси R) ЛІ 
σι ЛІ КРЕ) ОЕ ОКВИР 

a(I oMi, KIL),  N(I -M1, 3), DZK Eas SYN 5, 


Bx. e NRN TO Pn) RI, aM S) Ое) 


ARU12=AR*AUi *AU2 
ARUZ3=AR*AUZ*AU3 
πο] Ξδα ΑΟ: ΣΑΟ] 
ARU332AR*AUJ3*AUJ 


RAX= (AVG. 2—-ARU17) *OZK* (DYE-DYW) 

AZ = (AVG2Z23—-ARU2 3) *OXI* (DYF-5YB) 

хаҮ-(АУС1--АЯУ1 1) 402 ЕК (ХЫ > 
(АУЗЗЗтАКОЗ З) "ОКО (925 25) 


до (1,2, <) =АЕ (2,2, КДИ (2,2, Д) ТАМСИЛИ 


m “Az (i,.,4) -AS(I,0,%) +AEETAWW+ANN+ASS TAZ = -ASS 
S2(1,2,X)2-(ROD(:,2, X) *DYS*3O0D(Z, ZM1, X) "*DYN) / (2YS-Z YN) " 
52(1,2,5)с (2090(:,2,5)"2Ү5-800(2,/2М2, ТРИАС ELI 
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Aran 
f ano c <“ 
ATAT 
М2 „і m 


2025713909 
25257690 
252572 
22257600 
222571792 
29257809 
22257920 
22258000 
20258200 
20258200 
22258300 
22258400 
25258500 
22258600 
22258709 
22258800 
20258900 
29259000 
79259100 
05259200 
22259300 
22259400 
22259500 
22259690 
25259100 
22259800 
22259900 
222605055 
25260150 
22260292 
22260300 
20260400 
22260502 
22260690 
22260755 
22260800 
50260950 
22261522 
22201222 
2226:255 
70261309 
20262400 
26 - 
72262600 
22202775 
2625 
752685 
2262 
22262255 
2622 
22262300 
252262452 
22262245 
22262655 
22284. 
72262855 
75262356 
2226399 
2526386 
22268229 
265 
2226350 
15126055 
¿265 
ρω ο - 
“2635 
+226250 


77264555 


@ жая 
С 


τ᾽ ххх 


EC 


500 


502 


ie 
* 
* 
3 


су 


600 


KEK 


Oo) 


Ων Ων Ων kK 


EVODT(I,v, 


K) 


EMIL UNMO-SSU(CI,J,K) *DZK*DXI* (P(I,JM1,K)-P(I,S,K)0) 
+ AEER+AWWR+ANNR+ASSR+AFFR+ABBR 
*RE-RW«RN-RS-*RF-RB«*RRX*RRZ-RRY 
meee ~ ((28(1, 5, K) -REQ (I, J,K)) *0YS+(R(1, sM1, 5} 
me (1, 0M1, K) ) *DYN) / (CYS+DYN) *VOL*SIN(ZC(K)) *SIN(XC(I)) 
100 CONTINUE 


КАКЕ CARE OF B.C. 
RADIUS DIRECTION 


DO 500 K=2,NK 
L90500 I-2,NI 


THRU AN,AS,AE,AW,AF,AB,SP AND SJ 


ИЕ 729, К)-50(Т,3,К) ғ«А5(1,3,К)“%У(1,2,К) 


AS(I,3,K)=0. 
AN(I,NJ,K)=0. 
CONTINUE 


ЕТС CONDITIONS 
DO 502 K=2,NK 


20 502 J23,NJ 
SU(2 ,2,K)2SU(2 


ev; K) *AW(2 


ο ο ντ] (Ч.К) 


ВОМУ, К) = 50 (МІ, 7, К) +АЕ (№МІ,7,К) "У (МІР1,Ј, К) 


AW(2 ,v,K)=0.0 
ДЕ (МІ, Ј, К) =0.0 
CONTINUE 


FRONT AND BACK WALL 


DO 600 I 
DO 600 - 
EMIxJ-: 


2 
3, 


— Z 
Сі 


WALLS 


rO rü 


I, 
E 


Cy Cy 


( 
( 


ww 


AF(I,.,NX)-2C. 
AB(I,.,2)2C. 
TINGE 


S IP 
,2) =5Р (І, 7,2) +АВ(І, 7,2) 
(МК) =5Р (1,7,МК) +АҒ (І, 7, МК) 


CHHRERERREEERSCKHKTHKKHKHAHAHRERRHKR KKH KKH H HARA eee Resse RE ER 


MODIFICATION FOR DECK BOUNDARIES 


DO iCi N=i,NCHIP 
EnzICHPS(N) 
BC-IBTNCHPI(N)-: 
на 
و‎ 
JB2JCzP3(N) 
ES-OBTNCZP.(N)-: 
ESMI-.o2-. 
Boe t= vit. 
СЗЕКСс28 (№) 

s KBS-NCR2K(N)-: 
AS3M1=K3-: 


a alsz- 


0152 2=-B, Jš 


2G 102 X=K3,<xE-: 


r (I3B3M1,-,X1Y=SP(-I3M1, 


vVIMR)-AE(IBMI,J,K) 
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55264105 
20264259 
25264309 
59264450 
00264500 
50264600 
20264700 
00264800 
59264900 
00265000 
90265109 
00265200 
00265300 
00265400 
90265520 
00265600 
00265700 
00265800 
90265900 
20266000 
00266100 
00266200 
00266300 
00266400 
20266500 
20266600 
00266700 
50266800 
50266900 
90267065959 
99267120 
00267209 
09267300 
00267400 
0026755050 
99267620 
00267760 
00267805 
00267900 
502680250 
05268155 
9092682050 
529268322 
00268405 
50268505 
22268622 
20268722 
25268825 
70268900 
20269025 
00269155 
55269255 
90269322 
29269422 
00269252 
592269690 
25269722 
50269805 
252269902 
70270525 
59276552 
522275225 
20272322 
22272452 
2170550 
50210655 
ο.» 
29270825 


O O О 


(y (y () O 


©) 


ӘРІП 55 
AW(IZz,-,X)20 
202 CONTIN E 


P(1Z,2 X) AW СЯ 
20 


DOM 1-1ІБВ,ТЕ-- 

DONIS XxAB,KE-- 

АШ SMI,K)-0.-2 

AS στο σος 
ОЗ СЕЗЕ ЕЕ 


DOES L-.B,IE-: 

DO 106 J=JB,JE 

БРИТ  XBM1)=SP (L, 3, KBMl) AE( (L J KpND) 
A(T 5 <3M1)=ÇG 


ШИКЕ) 65Р ОС КЕЎТАВ СТИВ) 
АВ (І, 5, 2) =0.С 
i06 CONTINSZ 


FHHHHHHK STH HHRE ERR ERE E EE HERE EE HEHEHE EE aE RHE RHR E 
HHHHHRE SESE THERE RHETT HT HE SHER EERE RH ER RTT er e re eere nnn 
«жж MODIFICATION FOR THE CELLS INSIDE OFE THE БЕР 


ο ο = Ву ТЕЕ: 
20 124 .-JB,JE 
20 БЕВ;КЕ-: 
ος ο οσο 9Е20 
AW(I,-,X)20. 
ABC 1-0. 
А5(1,2,5)-<0. 
АШ”, 5)-0- 
οι <)=0, 

„04 CONTINUE 

-91 СОМ N E 

.-Qo CONV s 


FeSHRKA RS EreRAR ee aecegrgeeeree sere ee ee FH HH FF 
RERHE RESIST STH KH PRR REE REE EHSRHSHRHER KH KHE HERE KH HR Ae es 


cenv.o AND SOLVE DIFFERENCE οσοι ο 


ο ys) SA KI =S2 (1,3) 
ON ages A) τοσα τς) 
3001 ТЫС 


"Ἐν 22/2 2928 У 


ч p = - τα 


4, 22 = س‎ (2, 2, Z NI NG NP AO) 


PNE 2-2,2 

2 2-2,5 

ШЕ ‚у-у ae) 

Be oS? EV ΕΙ 
κ ο -52- 
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00270900 
50271665 
00271150 
00271200 
00271300 
00271400 
00271500 
00271600 
00271700 
00271800 
00271900 
00272000 
00272100 
00272200 
00272300 
00272400 
00272500 
00272600 
00272700 
00272800 
00272900 
00273C0C 
00273100 
00273200 
00273300 
0027340C 
002 13580 
00273600 
00273700 
00273800 
00273900 
002740CC 
00274100 
00274200 
00274300 
00274406 
0027450C 
002746CC 
00274765 
00274800 
520274952 
20215957! 
00275255 
50275250 
590279300 
25275455 
co27 
9092756 
20275755 
50275609 
09275990 
00276005 
00276157 
00276205 
902763522 
00276600 
00276500 
20276695 
00276755 
00276800 
00276900 
50277555 
592770 
co2712 
20277322 
20277425 
502717228 
20277629 


SS =: NIP] 20277702 
ПОМИ <=1, МКР] 29277800 
© ООШ 2,5<)=\/(7,3,К) 590277900 
79 CONTINUE 50278000 
22278100 
5222782С0 
РШЕССНІР.:0.0) GOTO 112 vo271830C 
QREESE SSS 2222222 SS SESE SES EE ELECT ESSE SEES ESSE SS SESE EEE SSS SS 22278400 
ο 1111111111 1111111111 111: 22278500 
as SET “=Z VELOCITY INSIDE OF THE DECKS 22278600 
Ξ 590278700 
€ 29278700 
ШІ 110 N=1,NCHIP 90278800 
IB=ICEP3 (N) 00278900 
IESIB-NCHPI (N)-1 0279500 
JB=JCHPB(N) 20279100 
JE=JB+NCEPJ(N)-1 20279200 
КВ=КСНРЗ (№) 20279300 
KE=KB+NCHPK (N)-1 20279400 
ШӘ 108 І-ІВ,ІЕ-1 20279500 
DO 108 J-JB,JE 20279600 
DO 108 К-КВ,КЕ-1 60279700 
М(І,4,К) «0.0 50279800 
ος ΟΟΝΤΙΝΟ 5 20279900 
ΝΤΙΝΟΣ 20280000 
ПОЕ СОМТІХСЕ 29280100 
29280200 
C FHFRFKERH SSSR SEHR RHE HEHEHE HHRH HERE RHE EE HEHE HH HHH 590280300 
C 121111 ΣΑΣ ΣΣ 1111111111111111111111. 20280400 
RETURN 292280500 
END 50280600 
29280700 
59280800 
59280900 
T 90281000 
© W f W W W W W W w w W Ww w W Hr ww Y £f W W w w Ree RRR ww www Ree ee X 00281 100 
SUBROUT INE CALW 559281220 
T K f OO W £f W W W W fT £ W W w RO ERK AKER EEE ee WF 22281350 
 ПОУ/58/ХС(93),ҮС(93),2С(93),Х5(93),Ү5(93),25(93), 59281409 
& КООЗ О Е (ОЗ), БДС (93) ,5ХХ5 (93), 2ҮҮ5 (93у,0225 (93) 292815609 
EE 75N/3-:72X,DY,D2, VOL,DTIME,VOLDT, HOT, TCOOL, P1,C,QR 50281600 
COMMON / 3— 7/NI,NIPl, NIMl, NOSGNJIPILNJMI,NK,NEKP?, NKMI 222817259 
EE NIP2,N.?2, NKP2,NA, NAP1, NAM1, NB, NBP2, NBMI,KRUN,NCZIP,NJRA,NWRP 2228180900 
COMMON /3. :2/ NWRITE, NTAPE,NTMAXO, NTREAL, TIME, SORSUM, ITER 25281950 
ESUMON/S3--6/ CONST,,CONST2,CONST3,CONST4, CONST6, NT, 70, H, 7GRT, BUOY, 77282009 
EE o 7-37, CONDO,V:S9, 3HOO,ER, TR, CA, DCZMP,7WRITE,7T7APZ,T7MAX,GC,RA:z00282..79 
E 0-255320: (22, 6,32), $:612(22, 6,32) , 81G22(22, - 6, 32) 222822225 
5 21912726 52Ү7,5:2Сс23(22, 26,32),51533(22,16,32) 792823520 
meee, 55227 20093 (10) ,NGHPI (10) , JCHPS(2C),NCHPJ(_0) ,XCHPB(=-0), 22282405 
& NCHPK(19) , CHP (10) , CPS(1C) , CONS (10) , WFAN (10) 75282209 
ΟΟΜΜΟΝ/ 9:.3:/ TOD(22,:6,32),ROD(22,16,32),POD (22,16, 32) 29282600 
5 05(22, :6, 32), U0D(22,16,32) , VOD(22, 16, 32) , WOD (22, 16, 32) 20282700 
РЕ 7/1022, 16,32) ,R(22, 16,321,» (22, .6, 32) 55282850 
& 2507205505295 71022. 16:32) 7V122, 76,32) ,W€ (22, 16, 32) 09282900 
ШОШО So (227 2G, 32), RP O(22, 26,32), P20 (22, .6, 32) 292283655 
Е АЕ 32) UPD (22, 116,32). V2D (22, .6,32),"PD(22,.6,32) 552831520 
ESUMON/S-34/ REIGHT(22, 16,32) “REQ (22,26,32), 222832250 
5 SUE (22, 16, 32) , SMPP (22, 16, 32) , PP (22, 16, 32), 22283325 
6 ЕӘИП2 2/55, 22) 217(22) 16,327, 04(22, 26,32) 25283459 
COMMON /2236/A? (22, .6, 32), AE (22, 16,32) ,AW(22, 26,32) ,AN(22, -€,32), 252283525 
& ο 2 6, 32), AF (22, „б, ο RB 22,16. 32), 95283600 
& 2 2), SC (22, 16,32). RI (22, .6, 32) 22283722 
СОММОК/5237/ Шаға ала 224 54841 05991222-544 2 Алһы24579)2256382 
5 ,СРМ(22,:6,32),ң52(3,2),УН52(22,16,32),8Е508У(93) 2283322 
ος 
528415 

о Ды CALCULATE COEFFICIENTS 22284 

20284320 
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с) 


©) 


29-192 K=3,NK 
XP2=K+2 
KPl=K+1 
XM EK. 
KM2=K-2 
JO 100 2-2,NJ 
¿P2=J+2 
ӘРіш2-: 
== 
2М2-2-2 
SONO I-2,NI 
2рдаї +2 
oe Lar) 
ІМ1=1-1 
iM2=I-2 


IP (120,2) ІМ2-МІМІ 


Je (СІ-ЕО-МІ) IP2=3 


CENTRAL LENGTH OF 


ӘЖЕШ-ХЫ(ТРІ, 5, 3 0) 
JAIL *XL(I ,J,K, 399) 
JXMIZXL(IMI,J,K,3,0) 


asm 


ο ο KPI, 3,0) 
DZK ΡΟ ο ας ο) 
ο ΣΕ ο Κι ο) 


SURFACE LENGTH OF THE CONTROL VOLUME 


ΓΙ, Ε.Ε, ὃν 2) 
KSK (I, s ,5,3,2) 
2XF=X_ (I, -,XP1,3,3) 
БАН-АБ(І,2,5 ,3,3) 


r P ( 92521, 32 
ЭВЕСТЕ Ке) 
το νε ο З) 


SWESS on PI 


D pw Е, И 
ЕЦЕ ο E ην. 
=Z (уш 222) 


ЕВЕР νο ND 220 


CENTRAL —ZNGTH 22 


ШКЕБ-А (2270537) 
ЭХЕ EXLUIPI,JQqN 321] 
SAWN κ εν ο”. 
Э ХИЛАК (ІМІ, Јо, лЗ 


SYNNS VT (1 σος, 
SN SNL OO 
215 =V Cine sures 
μοδα Ημ «πε 


οτε σσ προ S 
στ τό ιν τν... 
ELB EUS 52721 
ΞΡ; eG 1,09,3) 


с... ” * 
DEN 


tj 


amos 
- 


THE SCALE CONTROL VOLUME 


beet NP oo) 
ο ο) 


І-м КИЗ) 


STAGGERED CONTROL VOLUME 


CONTROL VCLUME 


00284400 
00284500 
00284600 
90284700 
00284800 
25284900 
50285000 
50285100 
90285200 
50285300 
00285400 
90285500 
00285600 
90285700 
00285800 
00285900 
90286000 
00286100 
00286200 
00286300 
00286400 
00286500 
00286600 
00286700 
90286800 
00286900 
90287000 
00287100 
90287200 
50287300 
00287400 
00287500 
00287600 
00287700 
00287800 
00287900 
C028800C 
002881CC 
00288200 
00288300 
00288400 
252288505 
50288600 
90288760 
20288805 
22288900 
209289005 
22289102 
20289200 
20289300 
20289400 
20289500 
2028960С 
20289700 
00289800 
29289900 
20290005 
20290100 
20290250 
09290300 
50290400 
55290505 
55296605 
22290705 
252290805 
922906950 
20291000 


20291155 


C * Xx x* 


© 


EN EXT *DYF 
DXYB=SX3*DY8 
weer >. =. *OZE 
JYZW-OYW*D2ZW 
DZXN-DZN*DXN 
DZXS-22S*DXS 


UBL-OX.*DYJ*D2K 
eae o-VOL/DTIME 


ZXOYN-2ZXN/DYN 
2Х0Ү5-22Х5/рҮ5 
XYOZr -2XYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW-DYZW/DXW 


JSZ SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 
f-.olCAL PROPERTIES AND FLUX ON THE SURFACES. 


КО C IN(R(I,2P1,K ),К(І,2,К  ),DYPl1,DYJ)*V(I,JPl,K ) 
ES S LN(RII,oPI,KMI),R(I,J,KM1),DYP1,DYJ) *V(I, JP1,KM1) 
u N(R(I,oMI,K ),R(OL,J,K . ),DYMI,DYJ)*V(I,J ,K ) 
С53- EN N(OR(I,2MI,KMI),R(OI,2,RMI),DYMI,DYJ)*V(I,. ,XM1) 


.. oNI(R(1,0,KP1),R2(1,J,K ),DZFF,DZF) *W(1I,0,KP1) 
ENS N(RO,2,KMI),R(OI,J,K  ),DZB ,DZF)*W(I,J,K ) 
GS) =5._-N(R(1,c,4M2),R(1, J, KM1) ,DZBB, DZB) *W(1I,0,KM1) 


K C N(R(IP1,J,K ),R(I,J,K ),DXP1,DXI})*U(IP1,G,K ) 
ESSSSETLIN(R(IPT,J,KMI),R(I,J,KM1),DXP1, DXI) *U(IP1,J,KM1) 
ΙΙΙΙΚΙΙΜΙ,6,Κ ),R(I,J,K ),DXM1,DXI)*U(I ,J,K ) 
,,. NOCUIMI,o,KMI),R(I,2,KM1),DXMI,DXI)*U(I ,-,KM1) 


τι +Gr) “OXY 
* (GP*GB) *5XYB 


CNSES-LLN(GNF,GNB, 22F, 228) *DZXN 
See oe NX (GSF, GSB, 0ZF,2Z28) *DZXS 


fee... (G25, G25,0Z°,9238) *DYZE 


eu-o.—_.(GWE, GWs, OZF, DZB) *DYZW 


ΣΕΝ δεν ) 
ШЕ35-У:2(:,.,5<У.) 
VISN= NIST PK УІ, оК ә) + 
М15 (1, 7р1, КМ1) +15 (1,7, КМ1) ) /4.0 
ViSS= ОИК 7-У/165(7,05,К )+ 
У1:5(2,2М1,КМ1) “УІ5(І,2,КМ1))/4.0 
V-Szz (Vi Ге ο ος ο τσ ευ + 
VIS? 1,5, КМ1) +МІ5 (1,7, КМ1))/4.0 
V-SW- ο οι 5/5 (7715 (1,/02,/Ж }τ 


VIS (IM1, S, KM1) +VIS (1,0, XM1))/4.0 


EESN--ZXOYN*V:SN 
ο -7XOYS*V:SS 
ЖЕСЕ --775ХЕ%У-52 
ΘΠ -ΥΖΟΧΗΡΝ-ΟΝ 
οσον ος 
ШКО оз l =ZYVO2ZB*xVISS3S 
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©0292 
92291355 
29291 
222 96 359 
09291600 
09291720 
90291800 
Αι 
59292202 
29292725 
20292225 
00292300 
90292400 
90292500 
29292690 
50292705 
29292890 
59292995 
9029300С 
00293190 
902932520 
50293306 
90293400 
920293500 
50293609 
50293705 
90293800 
90293900 
00294090 
00294 50 
20294207 
90294350 
20294455 
00294500 
992946025 
002947525 
99294809 
99294902 
29295222 
994295229 
202952255 
09295355 
222952422 
50295552 
25295625 
52295722 
20295822 
22902252 
20296225 
25296-22 
5929625 
22296322 
25296452 
“9296522 
592296622 
252296755 
2229682 
22296922 
2297255 
9297255 
2297252 
02 97322 
22297422 
νη 
25297625 
292297122 
52201802 
20297222 


с 


(0 


©) 


Oo 


801 
802 
803 


804 


805 


806 


807 


£08 


809 
810 


8.1 


8:2 


C2?=(ABS (Cz) +CE) *DXP1*DXI/ (OXE* (DXE SEX ae ce 
CEM- (ABS (CE) -CE) *DXP1 *DXI/(DXE* (DXE*DXEE))78. 
CWP = (ABS (CW) +CW) *DXM1*DXI/ (DXW* (DXW*DXWW) ) /8. 
CWM= (ABS (CW) -CW) *DXM1*DXI/ (DXW* (DXW*DXE ))/8. 


CNPz (ABS (CN) *CN) *DYP1*DYJ/ (DYN* (DYN4DYS ))/8. 
CNMz (ABS (CN) - CN) *DYP1*DYJ/ (DYN* (DYN*DYNN))/8. 
CSPE(ASS(CS)*CS) *bYMI*DYJ/(DYS * (DESS DYS SIDE 
CSM= (ABS (CS)-CS) *DYM1*DYJ/ (DYS* (DYS+DYN ΙΡ, 


CFP= (ASS(CF)+CF)*DZF/DZK/16. 
CFM= (ABS (CF) =CF) *DZF/DZP1/16. 
CBP=(ABS (CB) +CB) *DZB/DZM1/16. 
CBM- (ABS (CB) -CB) *DZB/DZK/16. 


AE(I,Z2,K)2-.5*DXI/DXE*CE«*CEP-*CEM* (1. * DXE/DXEE) *CWM*DXW/DXE*VISEI 
AW(I,Z2,K)9 .5S*DXI/DXW*CW*CWM-*CWP * (1. c DXW/DXWW) *CEP*DXE/DXW*VISWI 
AN(I,S2,K)2-.5*DYJ/DYN*CN*CNP«CNM* (1. - DYN/DYNN) -*CSM*DYS/DYN*VISN1 
AS(I,J2,K)= .5*DYJ/DYS*CS+CSM+CSP* (1.+DYS/DYSS) +CNP*DYN V yo D 


AF(I,2,K)=-.5S"CF+CFP+CFM*(1.+DZF/DZFF)+CBM*DZB/DZF+VISF1 
АВ(І, 7, К) = .5*CB+CBM+CBP* (1.+DZB/DZBB) +CFP*DZF/DZB+VISB1 


AEE--CEM*DXE/DXEE 
AEER-AEZ*WPD(IP2,Z,K) ; 
CONTINUE 


AWW--CW?*DXW/DXWW 
AWWR-AWW*WPD(IM2,J,K) 
CONTINUE 


IF 702.22.М2) GOTO 805 
ANN=0. 

ANNR=C. 

GOTO 806 

ANN=-CNM* DYN/DYNN 
ANNR=ANN*WPD (1, P2, K) 
σσ > 


ТЕ 712.27.2) GOTO 807 
А55=0. 

ASSR=C. 

GOTO €29 
А55--С52%2У5/02Ү55 
ASSR=ASS*WPO(:, M2, K) 


fT w 
„чы D NS 


Е COIS 

R=0. 

πο 8-0 
FF=-CFM*DZF/DZFF 
ΞΣΒΞΑΣΣ"ΝΡΟ(:, ο, Κ92) 

СОХТІКСЕ 


Arr 
АРЕ 


по 


πε κ ο ο) COO ES 
A33=0. 

ASBR=c. 

ο το 8-2 
AB3--Cz2*D23/D2B8 
ASSR=AS3B*WOD (5,0, KM2) 
COMING 


BelüstauaznsórrssunhpnngnunprtShUntütüngditokstitétigsrusztsissrrrrkERRSS 
SERRATE HR HH ARH EKE KK KRRKH RHR TRH HR RRA THAT 
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20298000 
0029810C 
00298200 
99298300 
00298400 
00298500 
00298600 
00298700 
00298800 
00298900 
00299000 
00299100 
00299200 
00299300 
00299400 
00299500 
20299600 
20299700 
C0299800 
00299900 
00300000 
00300100 
00300110 
00300120 
00300200 
00300300 
09300400 
00300 5C0 
00300 600 
00300 700 
00300800 
00300900 
00301000 
00301100 
00301200 
00301300 
00301 40C 
09301560 
00301600 
00301700 
09301800 
203019С0 
003022009 
203021930 
20362200 
29302306 
2030240 

15302552 
22302650 
22302759 
00302800 
00302900 
20530306952 
00303100 
503032009 
90303300 
90303600 
25303509 
20303600 
20303702 
00303800 
20303906 
55304655 
c0304 3 
203062525 
20304395 
20304400 
253045009 


ΩΩ 


Q 


Q 


901 


902 


903 


904 


905 


906 


MeOTEaCATION FOR DECK 3OUNDARIES 
CONTINUE 

ТЕ (NOD(iMl,-,KX) 
AWWz0.9 

AWWR=0.0 


.EQ.C) GOTO 901 


CONTINUE 

iP (NOD(IP1,J,K) 
AEE=0.C 

AEER=0.0 


TEO. C GOTO 902 


CONTINUE 

E (NOD (1, 5M1,K) 
А55=0.9 

ASSR=0.0 


-2Q.u) GOTO 903 


CONTINUE 

ШЕ (МОр(1,2Р1,К) 
ANN=0 .C 

ANNR=0 .0 


.EQ.0) GOTO 904 


CONTINUE 

ТЕ (Мор (1,5, КМ2) 
АВВ=0.0 

ABBR=0.0 


EQ 0) ' GOTO 905 


CONTINUE 
BESE(ONOD(I,J,XP1).EQ.0) 
ΔΕΕΞΟ.0 

AFFR=0.0 

CONTINUE 


GOTO 906 


HHHHF HFK ERE HTH ERE HH SR HR THH HET HEE EE EEE EE EHH ETH HHH 
HHHFERHHHR HEH RTH HERE E EE EEE eH EEE HH HE HH EHH EEE EHH TH HH HH HH 


SU FROM NORMAL STRESS 


OSE KE )- (И(І,2,<Р1)-Н(І,2,К ӘУСУІСЕ/р2Е) “ОХҮР 
E TCI I KM = (NCI, )-W(I,5,4M1)) *VISB/DZ8) *DXYB 
ШЕ 2 (pl K)-ü-(W(:,-2.,X)-W(I,J ,K))*VISN/DYN)*DZXN 
ЕЕ. (51623(:,2 ,%)-("(1І,2 ,5)-ИЧІ,2М1,К)) “УІ55/рУҮ5) "02Х6 
К ОЗОРИ КОЕК (Ср, 2.) МЦ ,~,K)) *VISE/DXE) *DYZE 
Е ТОБЕ LC, KK:  ,2,K)-W(IMl, S, A) ) VISW/DXW) *2YZW 


mee — = 


2 I OM CSaVE2 STRZSSES AND ACCELERATIONS 


S J 0.26 (S-G23(1,-2-,X)r+S-G23(1,J7,X)) 
ОО =2.52*($51613{1Р1,2‚К)+5$163(1,0,К)) 
 ΝΙΙΑΦΙ---(516522ι[1Ι,.5, ΧΑ), 5:022[1,5, ΚΜ1} ,,ὈΖΕ,ὈΌΖΒ) 
ШО І-52215(51051.(2,2,5),515:1(1,2,КМ1),02Ғ,02В) 


AU3-W(i,-,K) 

EEELEU E S(QV(I,,-PT,K ),VUL,o,,K ),DYJ3NDYJ, 
WEG SASI) Cl, Ae), Did, Bid, 

АО1-ВІ22Х(0(1221,2,8 ),í-(1,2,X ),DXLI,DXI, 
ОВЕ ЕКИ (1 S KM), DXI, DK, 


DZE; DZB) 
9ZE, D023) 
— N (R(1,2Z2,K) R(1, 2 ,KMi), , OZF,DZB) 
ARU232AR*AU2*AU3 

ARU13=AR*AUL*AU3 

ARU22-2A3*AU2"AU2 

ARUli-AR*AU."AUÍ 


ERY-(AVG23—-ARU223) *DXz* (22N-228S) 
БОП-ТАУ5:3-АҚ913)“9У24(225-22М) 
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00304600 
00304700 
00304800 
20304900 
00305000 
00305100 
00305200 
20305300 
20305400 
00305500 
00305600 
00305700 
00305800 
00305900 
00306000 
00306100 
C0306200 
00306300 
00306400 
00306500 
00306600 
00306700 
00306800 
00306900 
00307000 
00307100 
00307200 
09307300 
00307400 
20307500 
00307600 
00307700 
00307800 
00307900 
00308000 
00308100 
00308200 
20308302 
09308400 
00308500 
09308600 
003087С0 
20308800 
20308906 
55309065 
22309105 
52530692029 
22309302 
55309405 
20309500 
0503096060 
00309700 
22309800 
00309900 
62310000 
05310100 
20310206 
00310300 
22310400 
20310509 
00310600 
50310700 
ο0310800 
20310900 
553116900 
C0311 200 
СОЗ 200 
993101306 


(x G> O 


(y () () 


& 


& 
& 
& 
& 
& 
& 


200 


* * * 


Oy 
с> 
© 


eges 
usu 


x xx 


=Z (AVG22-ARU22) DAI (DLT DST 
(AVG. -.=ARUI1L) DIGI (DXKE ZDKB) 


E2 (l,-,SI3AE(I, CS, K) FAW(I,J, KJ TANI TEI TAS ГУ 
-АҒ(І,2,5) +AB(I, 6, K) +AEE+AWW+ANN+ASS+AFF +ABB 


52 (Il, vu, &K) == (ROD (1,3, K) *DZBFROD(1, 2, KM1) DIE στο ome 
Sš(I,-,X)= (ROD (1I,5,K) *DZB+ROD(1I,5, KM!) *DZE)7 (D2Z84D2Z5 ΠΡ 
*WOD (I, ¿, K) 


ovligv, A) HSU (1,6, K) tOXI*DYJ* (2 (170, KM) S T Op 
+*AEER+AWWR+ANNR+ASSR+AFFR+ABBR 
+RE-RW+RN-RS+REF-RB+RRY+RRX—-RRZ 
=SJ0OY* ((R(1I,J,K) -REQ(2,J,K) ) *DZB*COS (ZC (KK) ae eee 
£M1)eR2Q (1,5, KM1) ) *DZF*COS(ZC (KM1) )) / ΟΖΒΙΡΡΕ ΘΝ, 


CONTINGE 


TAKE CARE OF B.C. THRU AN,AS,AE,AW,AP AND SU 


RADIUS DIRECTION 


29 5906 X-3,NK 

LS SOG 2-2, NI 

смак 

БЭ ο ΑΙ σος ο Ы 

ο να πο ιτ ο ατα ZE) 

Se (di, 4) =SU(1, 2,4) 42.04 Wl КАС ee 
οτι A) FSP NS, K] ANIT No ЫЙ 

AS (1727<) =0. 

ΕΝ(Ι, ΝΟ, ἀπο. 

CoNTINGE 


nt 


Yael CONDIT:IONS 
=G 502 A=3,.NK 
55 562 Ј=2,М№Ј 
52(2 ,2,5)ч50/(2 ,2,К)жАйЙ(2 ,2,К) "ҰГ(І 290 
Sv (NI,-,4) =SU(NI,0,K) +AE(NI,5,K) *W(NIP1, J, K} 
ER(2 ,2,X) 20.9 
ERZ(NI,2,X)50.9 


ичет тм 
س‎ 9 5 INVI 


zRONT ANO 
ESS τον] 
508010 =2, NJ 
sm LC. A)pesoP(T/S ХА) 
22 SSP, SS JAS R 
Сои KT =U. 


Pee 5ο. 


BACK WALL 


(Ts 


босо τν 


сл 


RUISSSOSSORHH RHR SH Ke SH HHH HHH Re eR RRA R ARIA eH HH HH HF 
BSXIRHEKSSSHHRHR ARR ETH REH HHH RTARRRR RHR HE SE 


«ра тал ος ο τ 


SDLFICATION FOR DECK BOUNDARIES 
ЕБ СЕ 5: МСНІР 
“Ә-ІСЕРЕ(М) 

DESIB-NCHPI(N)-: 


023).7) 
2ÉZSOBTNCZSJ(N)-: 


=m - - 
=f =a 

 -— o дь ч - 

Ше л -- A 

0 -5 


στ τν ο ολο 


114 


AA == AA 


AA e e T OWN 
“η mae wv VV 


25322600 
Алада ^n 
w we لا أ‎ M 


29312880 
22317222 
20312500 
493-286 

25312259 
292312340 
22312490 
253123255 
25312690 
22312700 
25312890 
59312390 
292313200 
995321224 

20313200 
59313390 
59313409 
993133208 
29313600 
20313759 
20323800 
595313950 
355314555 
20314.99 
70314200 
00324300 
20324400 
00314500 
25314600 
59314700 
20314800 
202314900 
25325055 
25312-35 

9932524 


лл 
«η 2 57212 


^-^ z^ 

52312660 
4432270 
wwe м w W w 
м м < x ч.. 
^ ^ -: = AA 
“4. a o PAN 
^ ^ ө = F^ 
w ` - 5 82 
e ^N 
w w w < w لا ا ت‎ 
amma PAPAS 
vud a Ὁ μη 
^ ^ a poema 
σος. 
= ^ c MAA 
"σας. 
- ^ - ^^ 
25326845 
^^ е AA 
50320450 
aA a AA 
29326540 
-A . AA 
35316633 
PERT 67955 
- M - ` 
Anna PAAA 
- 316889 
А”ғч- anA 
A A - AAAS 
2232177 
- / - = f. 
mA 
wow 


ofr = ^ 


e ARAA 
Σια 
eec TAAG 
“4. A | NM 
^ ^ o op AA 
4742724 
ww a fw 
“л a m е уж p` 
ww Si oe 


ovd mE 
223214: 
ЗЕЕ 
eK 02 


-oap 8 ` MA 
ы м = жм“ 


о 


ΩΩ 


ECS 


106 


kkk 


04 
101 
ES 


KBM1-2XB-1 
KEPL=KE+1 


EX 2 J-JB,JE-i 

ps2 K=KB, KE 
EENUUSMI,S,KR)SSP(IBMI,J, X) -AE( IBM1,J, K) 

SU (13M1,5,4%)=SU (IBM1,c,K) +AE(IBM1,J,K) *WFAN(N)*2.0 
AE (IBM1,J,K)=0.90 


mene, J,8)=SP(IE,J,K)-AWCIE,J,K) 
SU(IE,J,K)=SU(IE,J,K) +AW(IE,J,K) *WEAN (N) *2.0 
AW(IE,J,K)20.0 


CONTINUE 


ШШЕІОЗ I=IB,IE-1 

DO 103 K=KB,KE 

SP (i, JBM1,K)=SP (I, JBM1, K) ~-AN(I, JBM1,K) 

SU(I, JBM1,K) =SU(1I,JBM1, K) +AN (I, JBM1,K) *WFAN(N) *2.0 
AN (I, JBM1,K)=0.0 


ОВИ ЈЕ, К) =5Р (І, ЈЕ, К) -АЅ (1, ЈЕ, К) 

50 (І, 5Е,К) =50 (І, ЈЕ, К) +АЅ (1, ЈЕ, К) "ИРАМ (№) *2.0 
А5 (І, ЈЕ, К) =0.0 

CONTINUE 


096 Ι--Β,1ΙΕ-1 

DO i06 J=JB,JE-1 

50(1, 2, КВМ1) =50(1,7, КВМ1) +АР (І, 7, КВМ1) *МҒАМ (№) 
50(1,2,КЕР1)-50(1,2,КЕР1)“АВ(1,2,КЕР1) “МҒАМ(Х) 
AF (I,J, KBM1) =0.0 

АВ(1,2,КЕР1)-0.0 

CONTINUE 


EL UE CELLS INSIDE OF THE DECKS 


ОО 194 І-:3,2Е-: 
DO 104 5-43,2Е-: 
20 i104 K-2X3,KE 
ШЕТІ, 2,К)--:.052 
АМ (1,2,5) =0. 
EU. -,X)sC. 
 5(2,2,5)-2. 

AN( 1, , X)=C. 
Pu, ~, A) : 
ES .,X) ie 
,'.''-.{)-5..6Ξ2 * WFAN(N) 
CONTINUE 

CONTINUE 

ΔῈ 


2 


› 


H##H#*#¢eergkestiegeers aoe e eH HH HHKH HK RHEE EH 
HHHHKA EE RH EST ETE KERR KHHEHEKH AHR RRTHHK EHH RRR Tae ER EE Ss 


ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 


Be 30. 
Be ὃν, 
Be sc. 
, = (ign X, 3,0) 

ERY-OXITDYVJ 

BE ,2,X)-AP(:,.,X) -SP(I,Z,X) 
DW(T,.,X)-2DXY/AP (:, 2, X) 
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00318200 
20318300 
00318400 
003184593 
90318520 
00318600 
00318700 
00318729 
00318820 
00318900 
90319000 
00319100 
00319710 
00319200 
00319300 
00319400 
00319500 
00319600 
00319700 
00319800 
00319810 
00319900 
00320000 
00320100 
00320210 
00320200 
00320300 
90320400 
00320500 
00320600 
00320619 
90320620 
00320790 
00320800 
00320900 
003210029 
090321150 
90321200 
00321300 
00321429 
20321525 
20321655 
903217252 
00321855 
70321909 


595322525 


20322255 
70322255 
70322359 
09322452 
00322522 
09322600 
90322755 
00322800 
00322925 
50323552 
90224-72 
50323225 
00323325 
20323455 
245214222 
20323625 
20323755 
209323822 
25323925 


25324555 


су 


су 


ООО 


O0 


©) 


301 ος Ε 90324105 
00324209 

00324300 

Ἐπ SOLVE FOR W 00324400 
90324500 

CALI RID (2,2;,2,N1, 50 NKA W) 00324600 
00324700 

90324800 

Ρο ο. ο NI 00324900 

DO 76 5Ј=1,М№Ј 00325000 
W(I,2,2)3W(I, 2,3) 00325100 

И (1,2, МКР1) = (І, 7, МК) 00325200 

76 CONTINUE 00325300 
00325400 

00325500 

TP ONenl? .EO.0) SOTO mae 00325600 
RHEEHHHSRHHR RE RHR RRR TERR RE H HEHEHE KERR H SHE H THREE RHE Re ee Rt HH HH RH 00325700 
RHELHHHHRRTRIRRRHR ARETE RHR HHH SRRH KKH EKER RRR R ERE RHEE RHE EEE 00325800 
*ww RESET ME VELOCITY INSIDE OF THE Deer 00325900 
00326000 

DO 110 N=1,NCHIP 00326100 
IB=ICHPB(N) 00326200 
ІЕ=ІВ+МСНРІ (М) =: 00326300 
JB=JCHPB (N) 00326400 
JE=JB+NCHPJ (N) —: 90326500 
КВ-КСЕРВ(М) 90326600 
KE-KB-NCHPK (N)- 00326700 

DO 1928 ἴξτΒ,Ιε-: 00326800 

DO 208 J-JB,JE-- 00326900 

DO 108 K=KB, KE 00327000 
W(I,0,X) =WEAN (N) 00327100 

108 CONTINUE 00327200 
110 CONTIS JE 00327300 
112 CONTID E 00327400 
00327508 

RETURN 00327600 

END 00327706 
00327805 

00327906 

------------------------------------------------------------ 503280062 
XO OE OX REE WoW wm X XO NON ON TRAKTOR EE EER X WOW 50328759 
SUBROUTINE CALP 90328205 
ππππππππππππππππππππππππππκππππ.κπππκκκππκπαπππκππκπππκπκπππππππκπππππππππππ 003283006 
COMMON/ R4 /XC (93), YC (93), Z22193), XS (93) ИБ ВИИ 90328400 

& 2XXC (93), SYYC (93) ,D>222C( (93) , 2XXS (93), DYV75 53 eee 703285600 
COMMON/322/0X, OY, 52, VGu, D1 ome, VOLDI, T- OTF σοι 55328665 
2ОУМОК/ 327/52,Х522:,Х51М2,Х,. ХІ М ТІ 55328722 

& ,N.P2,NSP2, NKP2,NA, SAP1, NAM1,N3,NBP1, NSM1, XKRUN, NCELP, NORA, NWRP 2220000 
COMMON/Si.2/ NRaRITZ, TAPE, NTMAXO, XNTREAL, TIME, SOR ONT E 523289922 
СОММОХ/3.26/ CONST., CONST2, CONST3, CONSTS, CONST6,N7, 50, =, -GR1, SUG) ee πι 

& CPC,2RT, CONDO, VISS, RHO0,ER,TR, TA, DTEMP, TWRITE, TTAPE, 7MAX, GC, RAIROO329-CC0 
COMMON/3L22/1CHP3 (1.0), NCHS! (10) , СПЕВ (10) ЧЕПРОО СУСВЕТ 20329222 

& NCHPX (iC), СЯР (10), С25 (10), СОМУ (ОЕ 993293522 
СОММОК/ 3231/ 792(22,:6,32), КО0(22, 16,32) БЕРУ 0032940560 

&  ,C22(22,:6,32),72021022,16,32) ,V0D (22,1887 32) ορ 0 00329505 
COMMON/3L32/ 7(22,16, 52) R 122 / 16 325 Fe (2201 О 90329607 

& e (22, .6,32),7(22, 26, 3205, V(227/ 06:32) WU22D eee C03297CÇ 
COMMOX/3L33/ ΤῬδο(22, 32) που ο 1 ο ο... - 90329822 

& «ΠΡΟ (22, 6,32) , 209(22, 16,32) , VED (22, 26, 32) eee 29329920 
СОМИСАІ/8234/ 522257 (22, 165,32) КЕС СОК 52933062525 

& SMP (22, .6, 32), SMPB (22, 26,52), 22 ο... 505330:22 

& 2«(22,.6,32),2V(22, 016,32] DN (2D 7 50330222 
COMMON/3L236/AP(22,.6,32) , AZ(22, 16, 32) , AW(22, 26, 52) , AN (22, 26732] ] T ΘΟ, 

& А$5(22,.06,32),А>7(22,.6,32),АВ(225 6 041 90330422 

& 527 (22, -6.32),50 (22.28, ο ο c OE 55330522 
СОММОХ/3237/ У:5 (22,12, 32) , СОМр (22,16,32), МО5 (22, 26,32), ЭЗАТ τι 

& „$22М(22,.6,342),5452(3,2),КН52(22,.6м 32И SET 203307202 


59330822 
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Сә ххх 
` 


a OSL LAI: COEFFICIENTS 


ECC K=2, NK 
X22=K-2 
X212X-. 
XMl12sX-. 
XM2-2K-2 

ο ο Js2,NJ 
2р2-2-2 

oPle Gri 
2М1-2-: 
2М2-2-2 

9ο 102 І-2,МІ 
1р2=1+2 
ІРІсі-: 
1М1=1-: 
ІМ2ш1-2 
ЖЕСТІ.:0.М1І) IP1=2 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


БЕРШ-ХІ (ІРІ,.2,К,0,0) 
N= XL (I ,27,К,0,0) 
EXMUZXL(OIMI,2,K,0,0) 


ο ος ο, ο) 
ο το το ἄν ος ο) 
NEYL (I, <3™M1,K,0,0) 


ENMZZL(I,.,KP1,C,0) 
ШЕ -22(1,2,К ,0,0) 
БШЕҮМІ-22(1,2,КМ1,0,0) 


SURFACE LENGTH OF THE CONTROL VOLUME 


mw 2rP.,K,0,2) 
SOXS=X_- (`, u А, 0 2) 
ШБЕх-(1і,2,521,0,3) 
ο οσο ,0,3) 


Fr ουν ας, ο, 3) 
В-У-(:,2,5 ,2,3) 
ο τι σου ος) 
τι: ο» K,G, i) 


ЕЭС (222,2,5,Сс,:) 
N= νι. τ, τ) 
22% EG Llc. A 2552) 
ST (lu ,K,C,2) 


wer:Ni AREA OF THE CONTROL VOLUME 


EXTEZZXT*DYE 
2XYB=2X3*DYB 
Peel Ys *OZ= 
2YZW-DYW* DZW 
2ZXN-2DZN*DXN 
EZXS5-222S*2XS 


ESLEOX.*DYJ*22K 
ESDDI-VOL/27:ME 


EN, AD*DYDITR(I,2Pi1,X)*DYJ)/(DYP:-DYJ) 
Ш ОЕ руи [DYN DYI) 
I = (m(- 2 K)*=DXPI+R(IP1,2,X)*DX1I)/ (DXP1-DXiI) 


~ 


Bete (20275, 8) “DXM1 +R (IMi, 5,4) *DXI) / (DXM1 +DXI) 
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29330900 
50331000 
oodd 
00337200 
0331309 
20331400 
60331500 
20331600 
90331700 
50331800 
50331900 
90332000 
20332100 
00332200 
00332300 
00332400 
90332500 
00332600 
00332700 
00332800 
00332900 
00333000 
00333100 
00333200 
90333300 
00333400 
00333500 
29333600 
59333700 
253338090 
20333900 
005334200 
00334100 
00334200 
20334300 
520334400 
20334500 
92334609 
20334700 
20334800 
70334900 
00335000 
5335. 
290335209 
42222222 
233545 
2335522 
293562 
12335722 
223358959 
06335900 
23033600C 
20336:95 
2032552 
о 
ا‎ 
20336600 
202336700 
22336820 
25336900 
223375 
σοῦ 
933725 
ЖО з; 
39337400 
ΠΕ 
223 3765 


100 


ww 


OO ON 


500 


ww 


ЭО O 


() 


OOO 


няя 


Rew (R(i,~, 4) *OZP1L+R(1, 5, AP1) “9207 7a 
кве (К (2,2,5) 02МІ+А (І, 7, КМ OZR) 7 οσο ο 


OU ON VERTICAL WALLS AND DV ON HORIZENTAL WALLS ARE ZERO 


AN(I,2,X)-RN*DZXN*DV(I1,J2-PX) 
AS (172 K SRS*DZXS*DV UK) 
AECILS,A)-5RE*DYZE*DOTIPI, 5) 
АН (І, 5,5) =КИ*рҮ2И*00 (1,7, К) 
Af (1,0,8) =RE*DXYF *DW(T,0, KPI) 
AS(I;<, &) ~RB*DXYB“DW(1, J, K) 


CN=RN*V(I,0P1,K) *DZXN 
οσον το ,K)*D2XS 
CESRECU(IP1, J, K) DIZE 
CW=RW*U(I ,<,K)*DYZW 
Cr=REARW(1,2,KP1)*DXYE 
CB=RB*W(1,2,K )*DXYB 


SMP (I,2,K)5-(R(I,J,K) -ROD(I,J,K)0) *VOL/DTIME-CE*CW-CN-*CS-CF-*CB 
SMP(I,-2,X)2-CE*CW-CN-«CS-CF-«CB 

SU(1,5 S)ZSMP(I.S,K) 

SP(I,v,K)=0. 

CONTINUE 


TAKE CARE OF B.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 
RADIVS DIRECTION 


DO SOC K=2,NK 
DO 500 I-22,NI 
А5(1,2,5)-9. 

АМ(І,525,5)-0. 


CONTINUE 
LEFT WALL AND RIGHT WALL 
DO S07 X-22,NK 
ο ο ολ η 
AW (2 7, x)=0. 
АЕ(МІ,2,5)-5. 


FRONT AND BACK WALL 


DO 2 0 c2, NI 
2215922 2-2,Х2 
ποτ ου. 
PE an, NK) One 
CONTIN -= 


NCE. 20.0) GOTE ое 


πλ ΣΑΣΑ 11 Σ11111111 λα 
HESHETREZRHEUZHEZZUSERÜHZSREÉEZEZZZSSEZZEZESRSRESÉZSZSÍH 


MODIFICATION FOR DECK BOUNDARIES 
DO 102 N=i,NCHIP 

Z3=ICE?B (N) 

IE=IB-NCHPI(N)-: 

-ΒΜ1--5-- 


- = JB-NCFE27Z(N)-1 
vMIZOS-. 
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20337700 
520337800 
29337900 
70338000 
90338100 
20338200 
50338300 
90338400 
50338500 
50338600 
90338700 
50338800 
90338900 
90339000 
203391С0 
90339200 
90339300 
90339400 
50339500 
90339600 
00339700 
00339800 
00339900 
90340000 
59340100 
20340200 
40340300 
59340400 
00340500 
20340600 
00340760 
50340800 
50340900 
99341000 
503411959 
90341200 
59341320 
50341450 
20341550 
59341650 
29341700 
22341800 
70341900 
553426550 
5503421905 
29342255 
20342300 
00342400 
20342500 
20342600 
50342755 
50342800 
59342950 
00343000 
00343100 
00343200 
00343300 
25343450 
20343525 
00343609 
25343759 
00343800 
25343965 
25344055 
29344:55 
25344255 
25344305 
25344405 


оо 


с) 


с) Оо 


о 


QQ 


ο so 
Ka=KC223 (N) 
XESKS-NCHPK (N) -: 
ХВМ1=53-: 
ХЕР1=52-1 


90 162 --JB,JE-: 
ЕМ 1022 Х=КВ,КЕ-: 
АЕ (ІВМІ,2,К)-0.0 
АИ(ТЕ,2,К)-0.0 


102 ΟΟΝΤΙΝΟΣ 


ОСЗ .-IB,IE-! 

DO 103 &K-KB,KE-: 

AN(I,.3M1,K)20.C 

БӘТІ, 22,5)-0.С 
103 СОМТІКХОС 


E2096 i=IB, IE- 

рО 166 J=JB, JE- I 

ШТІ, 2, «ВМІ)-0.0 

AB(I,.,XE)20.0 
106 CONTINTZ 


*** TOR THE CELLS INSIDE OF THE DECKS 


ESUIC4A --іІВ,ІЕ-і 
DO 104 J2JB,JE-! 
20 1C4 X-KB,KE-: 
ВЕ, 2.5) =- 1. 0Е20 
АМ (І, 7, <) =0. 
ВЕ (Т, 2,5) =0 
А5 (І, 7, <) =0. 
АМ (1,7,5) =0. 
69(1,2,5)- 

ου υΤνς 

ο οτι - 

10 ον τν 5 


izzszrzzrzizzzzrccpddliübontzuphnfükntithBiSdksdsdésthH 
HHSSTSSHKRSSISOHH AH HKEKRAKRKERHHHHEHHRHHHHHHHASH HH HERRERA RR RR ees 


ο o AND SOLVE DIFFERENCE =CVATICNS 


"1 
+ 
9 
і) 


AA προ -. vt 
20 Suu Sf, Nu 
RAA MA B ++ 
20 ы мы ποὺ gata 


29 3025 X=2,NK 
АР(1,-,5)-АМ(2,2,5) «А5(І1,2,5) «АЕ(1,2,К)ФАй(1,2,К)-59(2,2,5) 
5 БАС (2,2,5) "АЗ(І,2,5) 

ORONT 


peers 50.--0ΟΝ OF FINITE DIFFERENCE EQUATION 
ЕРЕШЕ -:-2 (7,2,2,NI,NC,NK, PP) 


5-5 FOR CKECKING 


EXC. `= NIP! 

E 6.) : 
I ἵνα AW ') 

ОТТУ (2,349) 

SRITI C IAN n S), K=, NKP), <=1,NJP1) 
61 ENTIN- 
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20344555 
00344600 
00344755 
00344800 
50344990 
00345050 
00345100 
00345250 
20345329 
00345400 
00345550 
00345600 
00345720 
00345800 
00345900 
00346055 
00346229 
00346200 
00346300 
00346405 
00346500 
00346600 
0034670C 
50346800 
00346909 
20347555 
20347:05 
00347250 
00347320 
00347400 
0034750 
00347660 
90347755 
00347820 
003479С0 
00348CC7 
520348222 
95348252 
20348322 
20348455 
«0348500 
20348622 
20348722 
20348822 
20348922 
202349222 
22349:22 
25034922: 
22349322 
20349455 
00349555 
20349622 
20349722 
520349825 
205349922 
20355225 
2535С-52 
0350 
0350322 
2235022 
20356522 
22352522 
«03560755 
25350 
20350922 
0251222 
OBIE 
203922969 


(» 


948 


Oo O 


160 


Q 


258 


O 


τν 


O 


968 


ΩΩ 


180 


о 


978 


С 
190 


оо 


988 


© 


191 
2939 


Жай 


OOO 


603 


C) 


à 


LO ο i=, NIP 
WRITE (6, *) ` 
FORMAT ( ' AF °) 

WRITE (6,948) 

WRITE (6,999) ((AE(T, 5, KK), R=); NREL) στο - 
CONTINUE 

DOSS =li, NIPI 

WRITE (6,*) I 

FORMAT ( ° АВ”) 

WRITE (6,958) 

WRITE (6,999) (ΑΒ ΚΕ) Εξ ΝΕ Ου 
CONTINUE 

DO 180 I=i,NIPi 

WRILE (6,*) I 

FORMAT “ AF °) 

WRITE (6,968) 

WRITE (6,999) ((AFP (I,J, K), K1 NKE I) ΞΡ 
CONTINUE 

WRITE (6,999) ((SU(IL,5,K)y,K=L;NRP1) TS I IDD) 
DO 190 I=:,NIP1 

WRITE (6,*) І 

FORMAT ( ' SU ') 

WRITE (6,978) 

WRITE (6,999) ((SU(I,J,K),K=1,NKP 1-1 NJERI 
CONS 1; IL 

DOr aI: i-i, NIPl 

ΜΕ OG; TE 

WRIT: (67 988) 

PORMAT ( ' РРО) 

WRITE (6,999) (І(РР(ТІ,2,К),2-І ТОРТ 
CONTINUE 

FORMAT (2510.3) 


CORRECT VELOCITIES AND PRESSURE 
CORRECTION FOR VET TOC TYT] 


Ρο ου т =2,у: 

IMpzr-. 

ο. το») ZM NI 

20 600 2-2,Х2 

DO 600 X-2,N& 
U(I,2,A)mU(L, o, XY *DULZ 2, K) (PP (IML, КЕРЕ 


ΟΝ ENS с 
W A.N ت ااه ے‎ 


"AJ 
4) 
n! 


οσον TOR Vo TOCE VEN 


50 603 K=2,NK 
JO 603 «52. 


να ο κ) ντ ο KI DVL, ο πο. S =PP(2 P D 
CINCI NSE 


CORRECT LON ZOD VELOC τα 


ОО σος X=23,N<x 
AMPEA-. 

DO 604 .-22,NT 
DO 604 2-2,NJ 


MUL S KISE, SK DWU, SK APP (T, S КМІ)-РР (2,7, )) 
ου > 
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00351300 
20351400 
20351500 
99351600 
00351700 
90351800 
20351900 
50352000 
00352100 
29352200 
90352300 
00352400 
90352500 
00352600 
00352700 
00352800 
00352900 
00353000 
00353100 
00353200 
00353300 
00353400 
00353509 
00353600 
00353 700 
00353800 
090353900 
20354000 
00354100 
00354200 
C0354300 
00354400 
00354500 
00354600 
00354700 
90354800 
20354900 
20355009 
20355100 
00355200 
79355300 
59355420 
903555009 
55355605 
29352724 
79355800 
20352999 
22356055 
525356105 
90356205 
00356300 
59356400 
29356509 
00356600 
29356755 
50356800 
29356909 
235755 
57122 
2357 
2235184, 
52535745 
25387502 
2935762 
25 57722 
00357800 
0035799 
90358005 


606 


xx 


O 


aan 


15 


KRN 


O O 


сл 
© 


51 


c * w * 


U1 ال‎ 
ui N 


76 


” жж 


DO 606 2-2,М24 

DO 606 i-i,NIP1 

DO 606 K=:,NK 

EDS UNPEP(I,J,K)tPP(l.,J,K) 
РР(І,2,К)-0. 

CONTINUE 


THIS IS FOR R=0.0 CASE 


ЕШ 75 Ісі,МІРІ 
DO 75 K21,NKP1 
Ш(1,1,К)=0(1,2,К) 
Ш(І,1,К)-М(1,2,К) 
ИЕК) ЕМ (І,3,К) 
CONTINUE 


MODIFICATION FOR R=0.0 


DO 55S K=2,NK 

VY=0.0 

VX=0.0 

VZ20.0 

VY=VY+U (I,2,K) *COS(XS(I 
VX=VX-U (I,2,K)*SIN(XS(I 
CONTINUE 


)) 
)) 


DO 51 122,NI 
VYsVY*V(1,3,K) *SIN(XC( 
VX=VX+V (I1, 3,K) *COS (XC ( 
Vz=V2+W(I,2,X) 
CONTINUE 


2) 
200) 


SIND THE VELOCITIES AT R=0.0 


ШШ52 -;,Ν:Ρ]Ι 


EEUU R)T (-VX*SIN(IUXSCCZY) SVV*COS (XS (21) )) /NIMI 
EOS 2,X)9 (VX*CCS(XC (2) ) *VY* SIN(XC (2) )) /NIM1 
W(I,i,X)2VZ/NIM1 
CONTINUE 
CONTINUE 

E 0:04 PSE CVLINOER CNLY (CYLIC CONDITION) 


ESO o-.,N-P. 

ο X-:,NXP! 

Au ο, Επ (δν, 4) 
ШГІРІ,.,5) -/(2,2,5) 
У(1,2,К)зУ(У1,2,К) 
ШІТІРІ, 2, 5) -У(2,2,5) 
4(1,2,5)-А(М1,2,5) 
ШІІРІ,2,5)-М4(2,2,5) 
CONTINUE 


mts 505 SPHERE CNLY 


OQ 77 -zi,N.P? 

290777 J=, NSP! 
υπο; 2) 
K, .)=V( T, , 2) 
(1.7, 2)=W( l, J, 3) 

ου Νεο πο νο NK) 
ου. περ τν , 2 NK) 
ο NKEP1)=%(! , 2 NK) 
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00358100 
00358200 
00358300 
90358400 
00358500 
00358600 
00358700 
00358800 
00358900 
00359000 
00359100 
00359200 
00359300 
00359400 
00359500 
00359600 
00359700 
50359800 
00359900 
00360000 
00360100 
00360200 
00360300 
00360400 
00360500 
00360600 
09360700 
00360800 
00360900 
00361000 
00361100 
00361200 
00361300 
00361400 
00361500 
00361600 
00361700 
00361800 
00361900 
00362000 
20362100 
20362206 
00362300 
00362400 
92362500 
223626059 
50362 190 
25362855 
59362900 
50363000 
00363100 
00363200 
00363300 
00363400 
20363500 
00363600 
00363700 
00363800 
20363900 
90364000 
20364105 
50364200 
99364300 
20364400 
29364500 
20364600 
203647955 
25364800 


ο ο 


(ЖЕЗ 


о 


о 


11 22 405 


> 


ANE ο Ip EO. 0) 


HHH RTT SSSR SSH H HHH HHH HH HH HHHH SHAT HK ARETE THT ETT HE TE HH FF FF 


G 


Am nu 


ΜΑ 


+ + 


FEF SSSSSOSTASHF HHH KAR HH RH HHH HEH HTH HE EEE 


ға өң шы т э = a 


*®* RESET THE VELOCITY INSIDE OF DECK 


СИ N=, ,NCHIP 
-3=IC=S3a (N) 
κ ΕΠ ΕΗΡΤ(Ν 51 
¿B5=JCRPB(N) 
22-08-МСНРО(М)-1 
5З-КСЕРЗ(М) 
X==KB+NCHPK(N)-1 


JO ICS ΙΞΙΒ,1Ε 
DIO TESS IIB, UE 
JO 109 K-KB,KE-1 
“І1,4,/К)-0.0 

109 CONSENUE 


ο IIB ΤΕ”: 
2 4.8 J=JB,JE 

с Ос «ΞΕΡΟ KE- 
(yn) =0 20 


ΝΣ 


omg ISIBLIPE-! 

uS cg J-JBPJE-: 
20 1.9 X-KB,KE 
W(I,2,X) WFAN(N) 

119 CONTINUE 

120 C х= 

216 CONZINJE 


FHHH SETS SSTHERHEHKKKK HERE SH RHHK HHH LH EEE EF HH FH 
HHAST LO SR STH HHH HER RA RHE KEK HHS HHHKHHHEHHRH HERE EERE HEHEHE SR RF 


.. SZCALCULATE THE ERROR SOURCE ASTER CORRECTICNS OF U V, P 


-2- 7. 
- - - = 

ae =: 

- د = 

2o n cs2,N. 
15-452 

mM s = 

29 155 K=2,NK 

-------- 

ХМ1=5- 


CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 
c = (pl. K O, S) 
ο 670, K, 0,0} 
IKC EX (1M1 2 K, 9, 9) 


Peace (lige KR 22; 


SENEL (ru AML, 


A 


C7 C2 C2} 


ο) 


La 
wv og v 
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30364900 
22365555 
29362-06 
25365255 
253653259 
20365400 
20365520 
70365650 
20365700 
00365800 
60365900 
20366000 
00366100 
20366200 
5036635050 
253663:9 
55366392 
29366394 
20366402 
0036625050 
90366600 
9036617050 
50366809 
00366900 
5036705560 
29367290 
252367222 
25367355 
25367459 
503675259 
529367609 
29367159 
202367859 
00367900 
25236805 

5036810550 
22368255 
252368322 
25368455 
25368525 
225368625 
22368722 
25368822 
29368328 
253695255 
2536925 
275369250 
- 365: 
22369455 
553692. 
25369622 
22369125 
22369822 
22369925 
2237225: 
29376250 
5937621 
295319308 
22372455 
2231524 
25375625 


223175852 
ғ“ “ „чы 
^ әм ^ ^^ 
= ^ 7 5525 
= ч = w w ` 
ma m du - AA 
аа” 
^ = m PF дм 
„ОЗП Ζ-. 


ТАН τον 
< ` aww чё 


S 


С 


©) 


goo 


O 


C 


IRR 


* * * 


WOW OW WO WOW WOW WOW Wo WOW Wo * Wo WOW * WoW WOW WO WOW W W W Ww W W WOWOW WoW WOW HW HN W w w W W W W WOW WOW OW W w W W w W Ww W W Ww W HN W W w w w 


* * € 0 Ww W WW w W W WW w W W W W Ww f w w W W W W W S W W W W W W X W XX w e W Y W W W W W W w W W W W W W WW W w w w Ww W WW Www f www ww w 


SURFACE LENGTH OF THE CONTROL VOLUME 


JXN-ZXL(I,JP1,K,0,2) 
ШбеХхг(1,2 ,К,0,2) 
ENXSZXL(I,J,KP1,0,3) 
OXB=XL(i,o,K ,0,3) 


ЕЕ (i,5,KP1,0,3) 
ο. Ετος ,0,3) 
ШЕЕ (121,7, К,0, 1) 
DYW=YL(i ,2,К,0,1) 


F 5 ZL (IP1,J,K,0,1) 
DZW-ZL(i ,42,K,0,1) 
DZNSZL(I,JP1,K,0,2) 
DZS-ZL(I,o0 ,K,0,2) 


JEFINE AREA OF THE CONTROL VOLUME 


DXYFZDXF*DYF 
DXYB=DXB*DYB 
DIZE=DYE*DZE 
DYZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 


VOL=DXI*OYI*DZK 
VOL27-VOL/DTIME 


EUSORUTI,2,K)*DYPIl*R(I,JP1,K) *DYJ) / (DYP1+DYJ) 
momen (1, 0,) “DYM1+R(1,JM1,K) *DYJ) / (DYM1+DYJ) 
RE= (A (I,2, K) *DXP1-R(IPI,J, K) *DXI) / (DXP1«DXI) 
Ex, 2,X) *DXMI*R(IMI,J,K)*DXI)/(DXM1-4DX1) 

Eur -,X)*OZPI-R(I,J,KP1)*DZK)/(DZP1-*D2K) 
aS-(A(I,2,X)*DZM1*R(I,J,KM1)*DZK) / (DZM1*DZK) 


ESERN*V(.,ZPl,K)*2ZXN 
Beano V{.,5 ,5)%02Х5 
meee U(.2.,.,K) *OYZE 
ELLUSW*U(C  ,.,K) *DYZW 
ESSE *W(-,-,XP1)*DXYF 
ESL ο  ) ΧΥΒ 
КУГ ,.,Х)=-С5-Сх-СХ+С5$-СЕ-СВ 
να, ae 44 2, A) ROD (2,0, K)) *VOL/OTIME=C=-CW-CX-CS-CF-+C3 


SORSUV IS ACTUAL MASS INCREASE OR DECREASE FROM CONTINUIT 
=QUATLON , THIS WILL COMPARE TO SOURCE 


"X 


SORSCLM-SORSUM-*SMP (I,J2,K) 


AZSORM :35 SUM OF THE ABSOLUTE VALUE OF SM? (i,v,X) 


ESI ‘RESORM (ITER) +ABS (SMP (I,0,K)) 
М 


СИС ον CRID(CST,ZST,KST,ISP,-SP,KSP,P?Zz:I) 


ЕОМ ЕЛИМ МР2, КІМІ, МЈ, УЈР1,МЈМ1, МК, МКР1,ХХМ1 
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20371452 
20371500 
00371600 
00371750 
00371800 
20371900 
00372000 
0037210 
00372200 
00372352 
20372400 
00372500 
00372600 
00372700 
00372800 
00372900 
00373000 
00373100 
00373200 
00373300 
00373400 
00373500 
00373600 
00373700 
00373800 
00373900 
00374000 
00374100 
20374200 
00374300 
00374455 
00374500 
00374 600 
00374700 
00374800 
00374900 
00375000 
003055 
20375200 
00375300 
00375400 
20905505 
00375600 
20375720 
22375820 
ooa S 
20306 C 
22316122 
22340252 
20376306 
20376422 
00376500 
00376622 
00116725 
00376822 
00376900 
ος: 
0377252 
2037722 
ш: 
0 
20377522 
2037766 
20377722 
00377822 
20341522 
00378022 
UOS 


O 


01 


200 


2000 


201 


200 


QSNIP2,NJP2,NKP2,NA,NAP1,NAMI,NB,NBP1,NBM1,KRUN,NCZEIP,NJRA,NWRP 
COMMON /3236/AP (22,16,32),AE(22,16,32),AW(22, 16,352) АМСОЛИ 
AS (22,16, 32) , A= (22, i6732 ee 


352(22,.06,32),872 (22,16,32) RI? 27 LOPER 
DIMENSION A(99),3(99) ,C (99), PHI (22, 16,32) 
GOTO “<Ç 
ISIMISES:-1 
A(ISTM.)=0. 
CISDMIyEO, 


DO 100 J=JST, J SP 

DO 100 K=KST,KSP 

DO 102 7 =IST, ZSP 

А(І)-АЕ(1,2,5) 

С(І)-АМ (1,42, КУ) “РНІ(2,2-1,К) ҒАВ(І J, KI ENTO 
-Ar(I,J,K) *PHI(i,2,K*1)*AB(I,S,K) *PHI(I,J,K—I)cSU А 

TERMz1./(AP (I, 2,K)-B(21) *A(I-1)) 

IF (ABS(A(I)).LE.1.02-10) A(I) 

IF (ABS(B(I)).LE.1.CE-10) B(I) 

IF (ABS(C(I)).LE.1.02-10) C(I) 

IF (ABS(TERM).LZ.1.0z-10) TERM 

A(I)-A(I)*TERM 

C(I)2(C(I)-*B(I)*C(I-i))*TERM 

CONTINCE 

Pr 5270.5) =С (15р) 

ISTA-iS7*l1 

DO IOA2 ` SISTA, :5P 

і-І511:5Р-:1 

IPlsI-. 

PHI (i,0,8)2A(i) *PHI(222,5,K)+C(I) 

CONTINSE 

CONTINUE 


о е 
оооо 


ро 2050 v=JST, USP 

νον <=KST,KSP 

PHI πο ο ο τοιτ ος, ο Ε) 
PHI (ESS ο ο τς ο ο 5) 
CONTIN -= 


¿SIMI 5-1: 
А(257У- 
σωστή -9. 
207205 A= 557, 
20 Se І 
2022207 
А(2)-АХ(2,2,5) 
3(2)=AS( `, , <) 
С(УӘ)-Ас (2,2,5) “9ы242-:,2, ЖУҒАН (ТІ, Б LE 

-А: (1,2,К) “Әнт(2,2,Кж1)-АВ(1,2, ӨӨЗРИГ а! 


=^ 
— e 


xSP 
Tr 152 


5-15 255 


ERM ` ./(AP(1,2,2Z2)=3(2)"AC 2 И | 
E (ASS (A(J)). 22.2.223-10) A(J)=00 
iF (АВ5(3(2)):2Е5...2:-:0) 80502500 
IF (АВ5(С212))1.25.1.22-:0) СІЗ Б 
τε (ABÓS(TERM).L.-...0: c ο ЕИО 
A(J)2A(.) * TERM 

ο ντ ο --υστεηπ 
СОМЕ = 

"Il 55 πιστα p) 

25ТА-252-: 


99 202 22-457А, 229 
=з ег 7252-22 
Jpleo-- 
Supe ο Απο). 
CONTENTS 

CONTIN- 


E O о T) 
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50378200 
50378300 
00378400 
00378500 
00378600 
00378700 
00378800 
00378900 
00379000 
00379100 
00379200 
00379300 
00379400 
00379500 
00379600 
00379700 
00379800 
00379900 
00380001 
00380002 
00380003 
00380010 
00380020 
00380100 
00380500 
00380600 
00380700 
00380800 
00380900 
00381000 
00381100 
00381200 
00381300 
00381400 
00381500 
00381600 
00381700 
00381800 
00381900 
00382000 
00382155 
00382200 
00382300 
00382405 
00362500 
50382665 
C0382. 
00382800 
0038622900 
00383055 
00383100 
00383200 
0038320 
00383220 
00383230 
00383240 
0038323060 
00383405 
00383800 
20383900 
00384000 
90384100 
0038642056 
52384302 
56384465 
00384500 
20384605 
90384700 


2001 C 


301 


802 
300 


2002 


4205 
405 


60: 


БОШО 2-257,25Рр 

ου τοι A=KST,KSP 

οἱ -:,2,A)-PHI(2SP,J,K) 
ο. τε ο  Ἀ)«ΡΗΙ(Σ5τ,, ΕΚ) 
TINUE 


xXSTM1=KST-1 

А(К5ТМ1)=0. 

c (KSTM1)-0. 

295300 I-IST, IS? 

20 300 J=JST, JSP 

OO 301 K=KST,KSP 

A(K)=AF(I,J,K) 

B(K)=AB(I,J,K) 

CI(K) SAE(I,J,K) *PHI(I-*1,J,K) *AW(I,J,K) *PHI (I-1,J,K) 
ΙΙ. РА ТОТ К) tAS(1,J,K) *PHI (1,J-1,K)+SU (1,J,4) 

TERM=1./ (AP (1I,0,K)-B(K) *A(K-1)) 

(ABS (A(K)) .LE.1.0E-10) A(K)=0.0 

ШҰТАВ5 (В(К)) .1Е.1.0Е-10) В(К) =0.0 

ARABS (C (K)) .LE.1.0E-10) C(K)=0.0 

Pe et(ABS (TERM) .LE.1.0E-10) TERM=0.0 

A(K)=A(K) * TERM 

ОЕ С (К) “В(К) “С(К-Т)) “ТЕВМ 

CONTINUE 

aali; <, KSP) =C (KSP) 

KS TA=<KST+1 

20 302 XK=KSTA, KSP 

X=KST+KSP-XK 

KP1=K+1 

EEDL(,2,K)zA(K)*PHI(I,J,KP1)-*C(K) 

CONTINUE 

ESNTINUE 


н1 


909 20922 J=JST, JSP 

20 2052 K=KST,KSP 

EUN 57=:,7, к) =РНІ (15р, 7, К) 
ИЕС 52+:,5, К) =РВІ (157,7, К) 
ESNTINCE 


SOTO 700 


CONTINUE 
ESP- 
(655.55, 
5.556. 

ШЕ 56595 :--:57,:52 
EE -7:5p-:1 

29 6005 22-457,26Р 
SSP = 

20 60: KK=KST,KS? 
ECNSP-XST-KX 
K«212&-- 

A(K)2A: (I,J,K) 
З(К)-АВ(1,2,К) 
ЖЕЙЕЕЕІ:, 2, к) "РЕТ(241,7,К) «Ай(І,2,К) “РНТ(1-1,2,К)“АМ(1,2,К)" 
ο ο τι ο) το ο ο KYtPHI(I,J9:,KR)*8U(I,J,X) 
Е=КМ=../(АР(1,5,Х) -А(К) "В (К+1)) 

5 (А)-3(%) * TERM 

co (K)=(C (K) rA(K) *C (K+1)) *TERM 


(895 t{A(K))..2.2.0£-10) A(K)=0.0 
ЕЕ (АЗ5(З3(К)).—Е.:.5к-10) B(K)=90.9 
Μι »{5[Τ}.-Ξ.-.5ξΕξ-:10) C(K)=0.9 
ΓΗΔ. 

,---.45Τ1-Εε[(Κκ65Τ) 

IPO =<xST+` 


- 


22 602 K=KS721, XS? 
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25384800 
20384900 
20385000 
20385:00 
00385200 
09385300 
22385400 
20385500 
00385600 
20385700 
00385800 
00385900 
50386000 
00386100 
00386200 
00386300 
20386400 
00386500 
00386510 
90386520 
00386530 
00386540 
00386600 
00386700 
003871090 
90387200 
90387300 
25387490 
20387500 
00387620 
90387700 
00387800 
20387900 
00388000 
00388200 
20388200 
90388300 
00388400 
900388500 
70388600 
29386700 
50388Ε00 
00388900 
55389550 
203827 
52389250 
“2384552 
25389455 
529389520 
50389600 
00389700 
503898920 
20389900 
003905 
2039-59 
503902 
20390320 
03904060 
9038659 
9392620 
20390 νο 
22390800 
25390990 
220392220 
59402-29 
202392220 
5099-52 
5539-4592 


602 
600 


2003 


301 


902 
5CO 


401 


°ч ΚΙ ΕΙΚ) ιτ ΠΤΙ 
CONTINUE 
CONTINUE 


DO 2003 J=JST, JSP 

DO 2003 K=KST, KSP 
2HI(IST-1,J,K)=PHI(ISP,J, K) 
F IT[T5SPZ1, J3, K) =PHI (IST, J E 
CONTINUE 


JSP1=JSP+1 

8 (Ј5Р1) =0. 

C(JSP1)=0. 

DO 500 KK=KST,KSP 

K=KST+KSP—-KK 

D9F500 II=IST,I5B 

I=IST+ISP-II 

DO 501 JJ=JST,JSP 

J=JSP+JST-JJ 

vP1l=J+1 

А (Ј) =АМ (1,7, К) 

В (Ј) =Аѕ5 (І, Ј,К) 

С(Ј) = =AE(1I,J,K)* PHI (I+1, J, K) +AW(I, J, K) *PHI (1-19, K) FAE (lp 
PHI (I, J, K+1) +AB(I, Cc, K) *PHI (1,5, K-1)+SU1, 07) 

ТЕКМ-1./(АР(І,2,К)-А(2) “В(4-1)) 

B (Ji=B (J) *TERM 

С(Ј) = (С(Ј) +А (Ј) "С (Ј+1)) *ТЕКМ 

Ir (ABS(A(J)).LE.1.0E-10) A(J)=0.0 

IF (ABS(B(J)).LE.1.0E-10) B(J)=0.0 

ТЕ (ABS(C(J}}.LE.1.0E=10} C(J}=0.0 

CONTINUE 

ЕНЕ, 252,853 «С(257) 

JSTP1=/ST+1 

DO 502 2-25ТР1,.5Р 

PHI (I,c,X)=B(J) *PHI (I, 

CONTINUE 

CONTINUE 


t 


=1,K)+C (J) 


30 2004 2-257,.25р 
DO 2004 X=XST, XSP 


ο ο στ οσα ος ο nh) 
ОТИ, Ж) РЕТ (ЕБТ, ЈАК) 
CON TTNO E 

Soe oo 

s (SP 1.) =Ç 

το =O 


-26Т-252-22 
209 400 XK=KST, ASP 
X=KST-X5P-XK 
qos STOP 


1515Р-:51--. 


S т) -AN(ISTDK)*buI Сет К) А5 (1,7Ј,Х) "РУЛИ - Αλ Ας... 


25 Э7(1,2, 51) «"АЗ(1,2, X) *<PSI (2 2) K- -1)-50(2,2,5) 


ο σι ο σι ο οσο) 
ΞΟ ESN 

ο στις πα πο το ΕΕ 

т (АВ6(А(2)).55.:255-197 А 1) 0 9 
с ЧАЗ5(53(7)}. ЕКЕ. στο ο ο 
ο βίο ο) ὃς, зе- Oe aoe 


CONN ED 
ο ο ο οσο σα 
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20391500 
20391600 
00391700 
20391800 
20391900 
20392000 
00392100 
00392200 
90392300 
00392400 
90392500 
00392600 
00392700 
00392800 
00392900 
00393000 
00393100 
00393200 
00393300 
00393400 
00393500 
00393600 
00393700 
00393800 
00393900 
00394000 
00394100 
00394200 
20394300 
00394400 
00394500 
00394600 
00394700 
00394800 
00394900 
00395000 
00395100 
00395200 
00395300 
00395400 
20395500 
20395600 
00395700 
29395800 
29395900 
252396000 
00396100 
55396205 
20396390 
26396400 
00396500 
20396600 
00396700 
20396800 
00396900 
20397000 
20397100 
00397200 
59397300 
203974050 
00397500 
29397600 
79397700 
60397890 
20397900 
252398000 
00398100 
22398200 


e 


ὠ 


©) 


© 


0000000 


402 
400 


2005 


100 
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тин 


& 


& 


& 


E 
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DO 2505 J=JST, 
DO 2005 K=KST,KSP 
ENNUCSI-1,J,KIZPHI(ISP,J,K) 
PHI(I $241,J,K)e -PHI(IST,J,K) 
CONTING 


uSP 


CONTINUE 
RETURN 
END 


RETREAT EERE AERA K k RE k Kk. k k. k... "k Ἁ 


BLOCK DATA 


RRA AREER EEE k "k Kk. f її O r e e WE WE i r E E E r r ir r ΧΑ η η Ας ΑΧ Ἡ Ἡ 


COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 


‚ХІР2,М№7ЈР2, МКР2, МА, МАР1, МАМ1, МВ, МВР1, МВМ1, ККОМ, МСНІР, МЈКА, МИКР 


COMMON/BL12/ NWRITE,NTAPE, NTMAXO, NTREAL, TIME, SORSUM, ITER 


003983CC 
060398400 
00398500 
00398600 
003987C0 
00398800 
00398900 
09399000 
00399100 
00399200 
00399300 
00399400 
00399500 
00399600 
00399700 
00399800 
00399900 
00400000 
00400100 
00400200 
00400300 
00400400 
00400500 
00400600 


COMMON/BL14/HCOEF, TINE, CNT, ABTURB, BTURB, VISL, VISMAX, QCORRT, ?M1, PM20040C 700 
COMMON/BLi6/ CONST1,CONST2, CONST3,CONST4, CONST6,NT,U0,H, UGRT, BUOY, C0400800 


ASA 


С: ο ο ο с PENE TWRITE,TTAPE МАХ GC ,RAIRI S I s OO 


DATA 
CATA 
DATA 
DATA 
DATA 


ime 2, NIPI,Ni,NiMi723,22,21,20/ 

NJP2, NJPi,NJ, NJM1/i7,16,15,14/ 

ШКЕ2, МЕРІ, ҰК, МКМ1/33,32,31,30/ 

МАРІ, МА, МАМІ, МВР1, МВ, МВМ1/9,8,7,27,26,25/ 

vC, TA, PRT, RHOO, CPO, VISO, NTMAX0/ 

ЕБІ 555566, 110,0.0714,0.24,1.56E-4,0/ 
ment; CNT, ABIURB, STURB/1.0,0.2,2.0,1.0/ 

SC, RAIR/32. 17,53:347 

CCORRT,?M1/1.0,C.9/ 


DATA 
DATA 
DATA 
END 


SUBROUTINE GRID 
EE DN/85/XC(931,YC (93), ZC (93), X8 (931, YS(93)1,2S (93) , 
2XXC(93) ,2YYC (93) , D22C (93) , DXXS (93) , DYYS (93) ,2 
КОШО S24 /OK, oY, 52, 7C DTIME, VOLDT, THOT, TCOOL, >I, Q, 2R 
COVVOX/SLT/NI, ἈΝ ,Х1М2,Х0,Х2Р1,М0М1/%К, NKP1,NKMi 


, X222, NJP2, NX22, NA, NAP 1, NAM1, NB, NBP1, XBM1, KRUN, NCHZ 2, NZRA, NWRP 


БЕЛЕЗАТ:ОМ Сг 23422 


"АТАМ (І. ) 
C/T LCATI(NIMi) 
. /:LOAT (NJM: -2) 
E LCAT(NZMI-:) 
1/7 OAT (NKMI-NB- *NA-2) 


C) C) Ú) ο) ο 
tS ες X ка 
iow i Ww TE 


πμ. 


ET )=-X*2. 
XS (2) 27.2 
ο στον- "2.5".Ρ7 
КООЗ .-4,13 

ШОШ У=(7-3)*0Х*2.5"2: 
ΝΞ 


AKO x 
+ > den 
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2225 (93) 


5040155 
00401129 
00401220 
90401300 
00401400 
00401500 
00401600 
00401770 
00401800 
00401970 
50402522 
00402275 
70402252 
09402352 
00402455 
50402222 
520402622 
224027225 
2540282 
22402922 
52403555 
5040315 
20403225 
0493355 
5040347 
20403522 
994036252 
29463722 
90403829 
20403922 
00404055 
20404.55 
56404255 
20404322 
96404425 
20404522 
55404652 
00404755 
20404822 
20404922 
20465222 


با با < 


O O O O O O OO 


Be 
ΓΕ 
СС 


20 


30 


Х5 (14) =Х5 (13) 

X5(13) XS(14)-9.01*2.9*pI 

DO 18 I=i5,NIP1 

XSI =X5(14y)+(I=:4) *DX*2.0*BI 
CONTINUE 
XS(NIP2)=XS(NIP1)+XS(3) 


YS(1)=0.000 

YS(2)=0.025 

YS ”(3)=0.CS 

DO 3 J23,NJ 

YS (Jisa (J—2)*DY 

CONTINUE 

YS(NJP1)=YS (NJ) 

YS(NJ )=YS(NJP1)-3./8./12./9.6 
YS(NJP2) YS (NJP1) «3./8./12./9.6 


DO 3 J24,NJP2 

YS (J)= (32—3) *DY 
CONTINUE 

РО 4 І=1,МІРІ 

ІР1=1+1 

ОХХС (І) =Х5 (1Р1) -Х5 (1) 
CONTINUE 


OXXC (NIP2) =DXXC (NIP1) 

DO 5 i=2,NiP2 

ІМІ-1-: 

DXXS(1I1)2.5* (DXXC(I) *DXXC(IM1)) 
CONTINUE 

DXXS(i)-DXXS(2) 


DO 7 J21,NJP1 

Р1з2%: 

DYYC ҮЗТӘРТУ)-Ү5 (2) 
CONTINUE 


JYYC (NJP2) DYYC (NJP1) 

DO 8 2-2, ΝΟΡ2 

Mix: 
δυο ο ο οι νο MIS 9 
CONTINUE 

IYI) =D SS 


S ος πο ντος 
ХС(2)-Х5(:2):2ХЖ6(7) / 2889 
CONTINGE 


DO 21 221,NJP2 
ΕΞ DYYC(J) 72.9 
CONT AINSI 


DO 9 K=4,NA 

ДЕ (КЕЗ) КОИ 

CONT INCE 

JOU SCE K=NBP 2, NA 

25 (К) =25 (А) tr (&-NB) *DZ 
CONTINUE 

Pope. X=NAP 1, Nis 
ZS(K)=2:/2. 

CONTINUE 


25(1)=9.5 
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00405100 
20405200 
00405300 
00405400 
20405500 
20405600 
00405700 
00405800 
20405900 
90406000 
00406100 
00406200 
00406300 
00406400 
00406500 
00406600 
00406700 
00406800 
00406900 
00407000 
00407100 
00407200 
00407300 
00407400 
00407500 
20407600 
20407700 
20407800 
00407900 
00408000 
20408100 
90408200 
00408300 
00408400 
20408500 
20408600 
20408700 
22408800 
00408900 
22409000 
20409100 
20409200 
22409305 
20409400 
22409500 
20409600 
25409755 
2040986500 
29409900 
50410000 
00410200 
00410200 
00410300 
22410409 
20410500 
00410609 
20410700 
20410800 
20410990 
22411000 
50411299 
22411295 
202411300 
20411400 
20411503 
00412609 
20411065 


29411800 


OOOO 


O 


ΩΩ 


O 


СУ СУ СУ СУ СУ СУСС 


10 


32 


22 


1 
^» 
3 


3 


0 
2 


25(2)5Ξ5.05 

ον 3)=0.1Ç 

25(МКР1)-25 (МКМ1) 

2 S (NK)=ZS(NKP1)—-0.05 
2 (NKEM1)=ZS(NKP1)-0.1% 
ZS(NKP2)=ZS(NKP1)+0.C5 


ZS(NKP2)=ZS (NK) 
ZS (NKP1) =ZS (NKP2)-0.05 
ZS (NK) =ZS (NKP2)-0.10 


DO 10 K-1,NKP1 

Iz (K.GE.NA.AND.K.LT.NB) GOTO 10 
rr I=K+1 

022С(К) «25 (КР1)-25(К) 

CONTINUE 


DO 32 K=NA,NBM1 
DZZC(K)22.854/ (NB-NA) 
CONTINUE 


DZZC (NKP2) -DZZC (NKP1) 


DO 11 K-2,NKP2 

ТЕ (K.EQ.NA.OR.K.EQ.NB) GOTO 11 
AMI-K-1 

EXESIK)-.5*(DZZC(K) *DZZC(KM1)) 
CONTINUE 


DZZS (1) =DZZS (2) 

DO 22 K=i,NKP2 

IF (K.GE.NA.AND.K.LT.NB) GOTO 22 
ZC(K) 22S (K) *D22C(K) /2.0 

CONTINUE 


DO 33 ΚΞΝΑ, ΝΒΜΙ 
zC (K) =P1/2. 
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3 CONTINUE 

EN YS(1).27.9.0) YS(1)-0.C 

 (ҮС(1).22.0.0) ҮС(:23-0.2 

PRINT * 

PRINT *,' INPUT COORDINATE OF THE TANK IN THE ORDER OF ' 

PRINT *,' 3 XS vs 25 xC үс” 

š ' 2С ΟΧΧ5 DYYS 52265 2χχς 

ЕЕ "суус τς 

BON =: ,‚хх>2 

EEEUE5,:22) -,Χ6ιτ),ν5(1),Ζ5(τ),Χεί1),Υειτ),Ζζίτ), 

& DCD VVC 22S (1), DXXC(1),DYYC(=),DZzZC (2) 

2 FORMAT (2X, :4, 22 (2X, F8.5)) 

CONTINUE 

RETURN 

END 

BSNGTION XL(I,J,K,M,N) 

Wow *X wow ow Ww FE w w w w W w w w w w w w w w Ww Wow ww W K W Ww Ww w w w w W x w w w k Ww ww Www Www w w w w Ww ww W w w W w W 

WHEN M OR N = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ΟΝΕ” 
HALF CELL (STAGGERED CELL) : 

WHEN M OR N - 2 THEN SHiFT CELL ΤΝ ΤΗΕ NEG Y DIRECTION ONE* 
HALF CELL (STAGGERED CELL) : 

WHEN M OR N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 
HALF CELL (STAGGERED CELL) x 


50411900 
00412000 
50412100 
00412200 
00412300 
90412400 
00412509 
00412600 
00412700 
90412800 
00412900 
00413000 
00413100 
00413200 
00413300 
00413400 
00413500 
00413600 
00413700 
00413800 
00413900 
00414000 
00414100 
00414200 
00414300 
00414400 
90414500 
90414600 
00414700 
00414800 
00414900 
00415000 
00415100 
00415200 
00415300 
00415400 
00415500 
00415600 
00415700 
00415800 
004159C0 
90416000 
90416100 
00416200 
50416300 
29416400 
20416522 
50416600 
90416705 
90416800 
00416900 
90417000 
90417120 
00417200 
00417300 
00417400 
00417500 
504176065 
20417700 
00417800 
20417900 
20418000 
5041810560 
00418200 
50418300 
00418400 
50418509 
00418600 


V RHEN M= М = : THEN SHIFT CELL IN THE NEG KX DIET τυ 594187252 
© WHOLE CELL к 29418800 
c SZEN M = М = 2 THEN SHIFT CELL IN THE NEG Y DBIRECIIONGOHSM 22418909 
С WHOLE CELL = 50419006 
e SHEN M= N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTO EENE 59419155 
S WHOLE CELLE 92419255 
Cee ee ee RR Re ee REE EERE EERE EER Ee REE ee eee Xx 29419300 
00419400 
COMMON/R4/XC (93), YC (93) , ZC (93), XS (93), YS (93) АУЕ 20419500 
& DXXC(93),DYYC (93) ,DZZC (93) ,DXXS (93) ,DYYS (93 Ы 50419605 
Х.-ХС(2) 00419700 
X2=YC (2) 20419800 
X322C (X) 20419900 
OXL=DXXC (I) 00420059 
"M CN) GOTO 100 004201520 
00420225 
ERM. EQ: 1 OR. N.E0. 1) ΚΙ’ 5 50420355 
=(М.Ес.:.ОВ.М.ЕО, 10 рХх\г=—2ХХе Г) 60420400 
SUOM.EQ.2.0R.N.EQ.2) ο το 00420500 
r (M.EC ..3.OR.N.EQ.3) X3=25 (h) 00420600 
GOTO 1290 004207090 
ТОО ο το ) XL=XE(T—2) 20420800 
(МЕО. DXL=DXXC (i=!) 00420950 
42-22 Х2-ҮС(2-7) 00421000 
EMEC.) XS=2ZC(K=1) 59421:25 
-0009%2 КОЕ 22421252 
AL=X2*S IN (X3) *DXL 00422300 
RETURN 00421400 
2ND 5542155595 
050421655 
29421755 
τ Ree eee RRR RE TEE Ee 542 We @ 9 
ο ον SN YD (T, Z /K,M;N) 02421955 
@ Www... x. x... .. x... k... W... 0422222 
Cw ww ww ww ww www w w x x eR EEE eee x. x... 50422875 
5 ΠΕΝ М ОК N = | THEN SHIFT CELL IN THE NEG X DIRECTION Gone. 504222559 
Š HALF CELL (STAGGERED CELL) ы 50422355 
С SZEN X OX N = 2 THEN SHIFT CELL IN THE NEG Ү DIRECTICN ONES 29422455 
Є HALF CELL (STAGGERED CELL) 5 00422500 
e SHEN M OR N =- 3 THEN SHIFT CELL IN THE NEG 2 DIRECTO TONDE 00422600 
e RALF CELL (STAGGERED CELL) : 29422755 
> οποιον У = N = ` THEN SHIFT CELL IN THE NEG X DIREC ΤΘ,“ 204228: 
S WHOLE CELL x 20422952 
> #HEN M = N = 2 THEN SKRIFT CZLL IN THZ NEG YDIRECT G p IBS 22428252 
c WHOLE CELL я 29423-55 
- ΕΝ М = N = 3 THEN SHIFT CELL IN ІНЕ МЕС 2 ο ο ИУ ЕУ 9423255 
2 Koori oann i Ў 542321 
C ww ww ww n. x. x x N E FR N x x x. x. x. x... x. x x. x x. x x x x. x x x x x x. x x WOW WO x x x. x € YW YE FE FF E E E SL7 Soe 
SOMNON/24/XC(93), YC(93),2C(93) XS 093) “S О Kon) 0223555 
& JXXC(93),2YYC (93) , DZZC(93) 7 EXXS (93), DYYS 095) τ 242362 
Z.=XC (`) 25423722 
Х2-УС(2) 22423822 
X3=2C (X) 00423977 
ο ο νο ο) 55424555 
τ ---.ῃ СОТО 200 25424222 
25424252 
PMEZ ORIN. EO. 2) το... E 
= (M E22 OR. N. EQ.2) DYL-DYY S(T) 24244252 
г М5-2.2-О05.М.2021) KISS 2424522 
2 ММ8-2,3.ОК,М.50.3) X322S 0) 2424622 
See ---0 22424122 
ον ο το ο). KEC 05 224248252 
BRNM-occ) DY DYO TSN 22424922 
EON EL.) KI KCCI) 252422770 
2-(У::2.3) KICK 221256 
.0009 9 T= 9425222 
ec ον. 2425527 
SENSN 2425422 
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OOOOO0000000€00500 О 


ο) 


OO O 


END 


ταν κα WR CR CROWE E x. C x X t FF FF J κ ай 


FUNCTION ZL(I,J,K,.M,N) 


xww. x. k 0 OON OX x. x «жж 


Www. x. k x. . x x xk x k x x x Kk x x x xk ἡ oir Kk x. k k x x. k x k x k x W x k. k k k k x o X 0X x x x. x її κ 


WHEN M OR N = 1 THEN SHIFT CELL IN THE NEG 
HALF CELL (STAGGERED CELL) 

WHEN M OR N = 2 THEN SHIFT CELL IN THE NEG 
HALF CELL (STAGGERED CELL) 

WHEN M OR N = 3 THEN SHIFT CELL IN THE NEG 
HALF CELL (STAGGERED CELL) 

WHEN M = N = 1 THEN SHIFT CELL IN THE NEG 
WHOLE CELL 

WHEN M = N = 2 THEN SHIFT CELL IN THE NEG 


WHOLE CELL 
WHENM = N = 3 


WHOLE CELL 


THEN SHIFT CELL IN THE NEG 


X DIRECTION 
Y DIRECILON 
Z2 DIRECTION 
X DIRECTION 
Y DIRECTION 


Z DIRECTION 


ONE* 


x 


ONE * 


* 


ΟΝΕ” 


ж 


ONE* 


* 


ONE* 
* 


ΟΝΕ” 


ж 


ааа МАИЯЛАЯЯА ЛИ ИА ЭЛИ Kk πα κα k k k k x k... k k kk W k x Wí 


СОММОМ/ КА /ХС (93), ҮС (93), 2С (93), Х5 (93), Ү5 (93), 25 (93), 


200 


300 


& 


& 


DXXC (93), DYYC (93) ,DZZC (93) , DXXS (93) ,DYYS (93) , D22S (93) 


COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 


,NIP2,NJP2,NKP2,NA, NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA, NWRP 


Х1-ХС (1) 

Х2-ҮС (2) 

X322C (K) 

р21=022С (К) 

ШЕИ МЕО.М) GOTO 100 


EREUMSEQ.2.0R.N.EQ.2) X2-YS(J) 
ESNUMCEO...OR.N.EQ.1) X1-XS(I) 
iM EO.3.OR.N.EQ.3) СОТО 200 
GOTO 1200 


CONTINUE 


IF (K.EC.NA.OR.K.EQ.NB) GOTO 2000 
Х3=25 (К) 


р21=0225 (К) ` 


СОТО 1200 

12 (М.ЕС.3) Х3-2С(К-1) 
zE(M.EQ.3) DZL-DZ2ZC(K-1) 
ESUM.EQ.2) X2sYC(J-1) 
ШМ-ЕС..) Хі-ХС(1-:) 
ESNTINTI 

ZL-X2*DZ- 


ESNXTIINUZ 

0211-022С(К-:) 

0222-0225 (К) 

if (K.EQ.NB) DZL1=D2ZC (Kk) 
τε (K.EC.NB) DZL22D22C(K-1) 
EZX2*22L1-T02L2)/2. 

CONTINUEZ 

RETURN 

END 


*o*ow Áo n C x x x x x x xx ` .x YF YF YF r r Yr YF JH J Ἐ 

πο. ον SILIN(V1,V2,D1,D2) 

meus 27.0 .0.AND.D2.50.0.0) 
Memeo. eas. 0. AND.O2.250.0.0) 
ο ου N= (V_*5D2-V2*D2) 4 (р1+02) 

RETURN 

ZND 


D1=0.1 
D2=0.1 
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90425500 
00425600 
00425700 
90425800 
00425900 
00426000 
00426100 
00426200 
00426300 
00426400 
00426500 
00426600 
00426700 
00426800 
00426900 
00427000 
00427100 
00427200 
00427300 
00427400 
00427500 
00427600 
00427700 
00427800 
00427900 
90428000 
90428100 
00428200 
00428300 
90428400 
00428500 
00428600 
00428700 
00428800 
00428900 
00429000 
00429100 
00429200 
00429300 
00429400 
90429500 
50429600 
50429709 
50429800 
00429900 
29430255 
5543061592 
55430255 
529430305 
20430400 
90430500 
00430600 
90430709 
00430800 
004 30900 
90431055 
20431220 
59431255 
20431399 
00431400 
290431509 
20431602 
59431755 
29431800 
592431900 
50432090 
204322525 
50432209 


Q 


C) 


& 


& 


& 


& 


& 


& 


€ *«CX * ow X Xo WW Wo WoW WoW X Wow X X x. x x x xk x. x x x k k K x k k x k k x Kk kx x. x Ñ 
FUNCTION BILIN(V1,V2,21,22,V3,N4 D3 PO 0 0. το 
*xo*Xo*X XX € oW x x икки x x x... x x k X x x Kk x Kk x x x x x K x X 
VI2200' 22*V2*D1)/ 13592) 

V342(Vz2*24*-V4*D3)/ (23-D4) 
BILIN=(Vi2*D6+V34*D5) / (D5+D6) 

END 


w wx x; Kx x... OF OF ER EK Wx 


SUBROUTINE STRESS 
x ww kw ΑΛΑ κα OX OX OS CX o wo X xot 
COMMON/R4/XC(93),YC(93) ,2e6 (93) , XS (93) 9 YS (93102 SIBI 
DXXC(93),DYYC(93) ,D2ZC (93) ,DXXS 193) ,DYYS 0 E 
COMMON/BL1/DX,DY,DZ,VOL,DTIME, VOLDT, THOT, TCOOL, PI,Q,QR 
COMMON/BL7/NI,NIP1,NiM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 
»NIP2,NJP2, NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN, NCHIP, NJRA, NWRP 
COMMON/BL20/SIG11 (22,16,32) ,SIG12 (22, 16,32) , SIG22 (22, 16, 32) 
51613 (22,26,32) ,51С623 (22; 16,32). ЗІС? 
СОММОМ /ВІ.22/ІСНРВ (10), МСНРІ (10) „ЈСНРВ (10), МСНРЈ (10), КСНРВ (10), 
NCHPK (10) , TCHP(10),CPS(10),CONS (10) , WFAN (10) 
COMMON/BL32/ T(22,16,32);R(22; 167 32) το ec 
,C(22,16,32) ,0(22,16,32) , V(22716, 32 LZ OS) 


00432300 
00432400 
00432500 
00432600 
00432700 
00432800 
00432900 
00433000 
00433100 
00433200 
00433300 
00433400 
00433500 
00433600 
00433700 
00433800 
00433900 
00434000 
00434100 
00434200 
00434300 
00434400 
00434500 
00434600 


COMMON/BL37/ V1S(22,:6,32),COND(22,16,32) , NOD (22,16, 32) , RWALL (579) 00434700 


,CPM (22, 16,32) ,HSZ(3,2),NHSZ (22, 16,32) ,RESORM( 33) 


DO 100 K=2,NK 
KP2=K+2 
KP1=K+1 
KM1=K-:; 
KM2=K-2 
DO 100 J=2,NJ 
JP2=J+2 
JPl=J+i 
2М1з42-: 
2М2-2-2 
DO 190 I=2,NI 
IP2=I-2 
IPlsI-. 
IMl=I-- 
ІМ2-іІ-2 


СЕМТЕА: 225075 СЕ 255 5САСАҚ ССОЫТКОГИТЕВВМЕ 
κο T στ ρα ος) 


Хх χο ο LAU) 
ОМІ (МОКОО) 


ον ο ο πο ο) 
νυ SS ο 5.) 
ОМ = ο πα ο) 


DEDIEZS[(l,2,4P 1529 49) 
DOLKS Lalis ,2/0) 


Ә2У Ін; (.,2,<М © Ὁ) 


SURFACE LENGTH OF THE CONTROL VOLUME 


ЗЕ, Зр. ο ο...) 
νυν ο νο 75/22) 
Εν ο ο, σπ 9) 
ο iS, 2073) 


ET (lp op AE 1, oy 3D) 


Wiebe tip Ky oy 3) 
DYB C o MOM 
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00434800 
00434900 
00435000 
00435100 
00435200 
00435300 
00435400 
00435500 
00435600 
00435700 
00435800 
00435900 
00436000 
00436100 
00436200 
00436300 
00436400 
00436500 
00436600 
00436700 
00436800 
25436900 
00437000 
590437150 
00437200 
20437300 
00437400 
90437500 
20437600 
00437700 
00437800 
00437900 
09438000 
00438160 
00438206 
00438300 
00438400 
00438500 
00438600 
00438700 
00438800 
00438900 
00439000 


ο) ο) 


() 


å 
å 


-00 


жан 


DYW 


s o RO, 1) 
ο οι στο, Κο, 1) 
22W-ZL(i ,J,K,0,1) 
EZNSZ.(i:,JPl1,K,0,2) 
%245-22(1,2 ,K,0,2) 


CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR T 


BXEEZXL-(IP2,J,K,0,1) 
Bee =XiL(IP1,J,K,0,1) 
DXW =X- (1 ,2,К,0,1) 
DXWW=XL(IM1,J,K,0,1) 


ВИМЕ ҮТ (І, ЈР2,К,0,2) 
ВИМЕ УЕ (І, ЈРІ,К,0,2) 
ESS (Il, ,К,0,2) 
SS (I1, JMi,K,0,2) 


BZEPeZ.(I,J,KP2,0,3) 
DZF 22L(I,J,KP1,0,3) 
КИЕВ -7:(1,7,К 03) 
EZBBZZ2L(I,J,KM1,0,3) 


UBAR=C .5* (U(IP1,7,K)+U(I,J,K)) 
VBAR=0.5* (V(I,JP1,K)+V(I,J,K)) 
WBARZC.S2*(W(I,2,KP1)«*W(I,J,K)) 


AJXY2DXI*2YJ 
JYZ-DYJ*DZK 
DZX-DZK*DXI 


ENESS-R)E2-*VIS(I,J; KY*((UCIP1, J,K) -U (I, J, K) ) /DXI 
*VBAR* (DXN-DXS) /DXY 
T-WBAR * (DXF-DXB) /DZX) 


EBC22(-,o,K)72.*VIS(I, ,K) *t (VCI, JP1, X) VCI, 9, K)) /DYJ 
*WBAR* (DYF-DYB) /DYZ 
-UÜBAR* (DYE-DYW) /DXY) 


Ec A yS2.*VIS(I,J,K) * CW(IoGppKP Dyi-W(I,J,K)) /DZK 
-UBAR* (DZE-DZW) /DZX 
~VBAR * (DZN-DZS) /DYZ) 


С) 
O 
24 
-3 
4 
4” 
( 

ti 


3ο 2600 x=2,NKP1 
Toa- 
=- 
m x- 
RM2-K-2 
20 202 :-2,NJP1 
--2 
EL. 
EI 
ES 
ЕС 222 :-2,NIPl 
05221-2 
EI. 
E T2 


ΠΧ, ΟΥ, 22, ARE BASED CN THE LOCAL CONTROL 
КМО OMS «ο 518572 


me (5.20.2) GOTO 306 
ΕΚ ἐς ,5,1,20) 
ΙΝ .Χ.{-,.ΜῚΙ,Κ,:, 0) 
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22439100 
25439200 
22439300 
50439400 
20439500 
00439600 
20439706 
00439800 
50439900 
50440005 
90440190 
00440200 
20440300 
00440400 
50440500 
50440600 
00440700 
20440800 
50440900 
90441000 
90441100 
00441200 
90441300 
50441400 
70441500 
20441600 
50441755 
50441800 
50441900 
79442009 
00442100 
00442200 
00442300 
09442400 
00442500 
55442600 
50442755 
79442850 
204429С0 
554430550 
22443259 
79443200 
55443350 
25443455 
22443525 
224436055 
224437255 
226638255 
22443950 
79442090 
55444155 
22444255 
55444399 
00444400 
00444506 
00444600 
25444755 
22444802 
22444955 
22445555 
5044500 
275445250 
252445325 
25445455 
22445525 
22445605 
252645755 
29445867 


C 
С 


ЭО 


& 


& 
300 


trezor 


& 


& 


5 


s 


* *x»x 


eps ode UK, 2.0) 
JYW=YL(IM1, J, K, 2,0) 
“ΠῚ ο ανα 2) 
IEE /2/К/271) 
OSUYNEIL(;,J ,К,1,0) 
Bro=r1b(1,5M1,K, 1,0) 
2XE=XL(I , У, К,2,0) 


SXW=XL(iM1,5,K,2,0) 


~BAR=SZLIN(U(I,7,K), 
VBAR-SILIN(V(,J,K), 


VIS12-23ILIN(VIS(I 


U(L,JM1,K), DYN ο. 
V(IM1,J,K),DXE, DXW) 


,v K) ,VIS(I ,JM1, K), DIN, DIS; 


VIS (IM1,J,K),VIS(IM1,JM1,K) ,DYN,DYS, ОХЕ, ОХИ) 


51612(1,7,К) = 


VIS12*((V(I,J,K)-V(IMI, KDE 
-VBAR* (DYE-DYW) / (DXI*DYJ)) 


51612 (1,Ј, К) =51612(1,Ј,К) +УІ512( (0О(Т, ЈК) ОКТО 


CONTINUE 


-UBAR* (DXN-DXS) / (DXI*DYJ)) 


FOLLOWING DX, DY, DZ, ARE BASED ON THE LOCAL CONTROL 
VOLUME FOR SIG13 


JXF=XL (1, 2 K 7079) 
DAB2@XL (1,5, 4M1, 2,9) 


οτι CK TO 
S NSCLUIMI KIO) 
ΙΙ ο δν 9) 
JZK=ZL( + ° Ν.. 


Ὁ Ες ον τοις , 1,03 
DZB=ZL(.,0,KM1,1, 0) 
DXE-XU(: ο δι, 0) 
QXW-XL(IM1,.,K,3,0) 


ое. 20 5 

WRITS (6, =) τω, 
ЗАКЕ5 2 ІК (ОСІ, 2, Қ) 
*BARZSILIN(W(I,Z,K) 


ЧЕ PS3 LLIN (VIS(? 
5 


SG Sie, A) = 


.OR.D2B EQ 0 O OR DZE EQUI 
А, О2Е,О2З,О2Е,О2И 


МК 


“ος Ρον το ο 


UI. C KMI) ZE DB) 
"М(ІМІ,2,К) ,ОХЕ,ОХИ) 
roK) VIS(I ,Ә4:КМІ) 2” 
У1І6(ІМІ,2,КМ1),22Е,9228, ΟΞ, ΠΠ 
VIS13*((W(I,32,K)=>W(I21 O s) NS 
-WBAR* (DZE=D2) / (DXI*D AM) 


ο αι ο ος απο ο οσο «τοις. ЗООТ ИСЕ σίας, ΧΗ} ЕК 


EN теа INTATT NT 
SOLLO ^ai 


ον D; DZ; 


-JBAR* (DXF—-DXB8) 7 (BX: *DZRK)) 


ARE BASED ON TEE LOCAL CONTROL 


VOLUME FOR SIG23 


“75822 (2, pu, th, 350) 
ο ον (УМК, Зо) 
Εκ ο ο 22/7 
ШВЕИ РУ) 
EXKEZIL(. 2534352) 


LJE ο ντ, 5) 


ον τον Αν Πο 
ος ο ντα. 
ο ο τς νο 2) 


pa py AML, 2) 


ЛБАК-5:22-Х(М(Т,2,%), 
VSAR=S2-2N(V (1,074) 


W(I,2M1,X),DYN,DYS) 
,V(I, c, KM1), 22F, DZB) 
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20445900 
90446000 
00446190 
20446200 
20446300 
00446400 
20446500 
00446600 
00446700 
C0446800 
00446900 
00447000 
00447100 
60447200 
00447300 
00447400 
00447500 
00447600 
00447700 
00447800 
00447900 
00448000 
00448100 
00448200 
90448300 
90448400 
90448500 
00448600 
00448700 
90448800 
00448900 
20449000 
00449100 
20449200 
00449300 
20449400 
00449500 
20449600 
90449700 
90449800 
20449900 
20450090 
204506192 
20450200 
29450320 
22452405 
29459222 
25452605 
25452755 
20450800 
90450909 
29451029 
9045112 

00451200 
26451329 
50451450 
00451500 
59451650 
29451770 
C045: 800 
90452900 
20452050 
¿0452 
25452255 
9452356 
20452459 
204525255 
20452655 


00452795 


ο. S L IN(VIS(I ,<-,K),VIS(I,JM1,K ),DYN,DYS, 00452800 

& ΙΙ, xMIUAVIS(I,JMI,RMI)?;DYN,DYS, 22rF,D2B) 00452900 
00453000 

51523(2,2,К)- VUSZ sey (loo, hk) —V (Lew, KM1) ΡΟΚ 00453100 

& -VBAR* (DYF-DYB) / (DZK*DYJ)) 00453200C 

ИЕ K) =SITC23 (I, J, K)+VIS23*((W(I,J,K)-W(I, JM1,K))/DYJ 00453300 

& -WBAR* (DZN-DZS) / (DZK*DYJ) ) 00453400 
00453500 

200 ουν 00453600 
Peer ο -=1,NIP1 00453700 

DO 110 v=i,NUP1 00453800 

С E06, 998) :,J,SIGIT(I,J, 5), SIG12(1,J, 5), SIG13(I,J, 5), 00453900 
C & ОНЕУ САЗ (І Jo395,SIG33(I,J,92) 00454006 
998 FORMAT (2X,I4,1X,14,6(1X,E11.4)) 00454100 
ШО CONTINE 00454200 
RETURN 00454300 

END 00454400 
00454500 

00454600 

00454700 

Е 00454800 
x ** πκκκκκκππκπκπκκκακππππακκπππκπκκκκκκκακκκκκακκκκκακπκπακκκκκκκκκκπκκκακκκκακκακακκκκ0)ρ454900 
SUBROUTINE CALQ (LL) 00455000 


καπ .κκακκκκπππππκκππκππκπκαππκκπκακκκκκκκακκκκκκκκκκκκκκκακκκκακπκκκακκκακπκπκακκκκκκκακρ)0455150 


ESUMONZ3L1/DX,DY,D2,VOL,DTIME,VOLDT,THOT, TCOCL, PI,O,QR 00455200 
COMMON/3L7/NI,NI P1,NIM1, NJ,NJP1,NJM1,NK,NKP1,NKM1 00455210 
COMMON/S3L12/ NWRITE,NTAPE, NTMAXO, NTREAL, TIME, SORSUM, ITER 00455300 


COMMON/3L14/HCOEF, TINF, CNT, ABTURB, BTURB, VISL, VISMAX, QCORRT, PM1, PM200455400 
СОММОК/3216/ CONST1, CONST2, CONST3, CONST4, CONSTG, NT,UO,H,UGRT, BUOY, 004555С0 
& CPO, PRT, CONDO, VISC, RHOO, HR, TR, TA, DTEMP, TWRITE, TTAPE, TMAX, GC, RAIRO0455600 


COMMON/3L34/ HEIGHT (22, 16, 32) , REQ (22, 16, 32), 00455700 
ς ορ ο 32) SMPP(22, 16.32)  PP(22,16,32), 00455800 

ς πο (22.15.32) ,DV(22,16,32), DW(22, 16, 32) 00455900 
COMMON/5L37/ VIS(22,16,32),COND(22,16,32) ,NOD(22, 16,32) ,RWALL (579) 00455910 

ς , CPM (22, 16,32) , HSZ (3,2) , NHSZ (22, 16, 32) , RESORM(93) 00455920 
COMMON /3.39/ALEW, PCURVE, CONSRA, PCURM1, PSOUTH, OCORR, PERROR 00456000 
00456102 
C *=* IX MANY OF TEE FOLLOWING LINES A TEMPORARY CORRECTION FOR 00456200 
ς > ADJUSTING QQ TO AGREE WITH THE PRESSURE HAS BEEN APPLIED. 00456300 
00456400 

XTIME--IME*H/UO 00456500 
004565:0 

МО27-2.2 00456520 

ERE - 2, 00456532 
EL x 20456542 
EE 5-6,7 20456555 

(5 =52(2, 5.4%) 20.2) GCTO 223 50456360 
ER (ql ..,4,0,0) 00456572 

E O, коо) 00456580 
οσα оо) 50456590 
/О=2Х:"ЭЎ27*%92К*Н*ч=ш 00456591 
VOLT-VOLT-VOL 00456532 

-13 CONTINLE 00456593 
20456594 

QaVOL-c. 00456595 
EE --561,579 00456536 
QRVOL-ZAVOL*RWALL(I)*:1./12.*0.2*PI 50456537 
20 CONTINUE 20456538 
c 00456599 
QR-QRVCL/VOLT*UO*CPO*3HO0*TA/H 20456600 
00456700 

IF (XTIME.LT.23.1) THEN 00456800 
СОШЗУЕ=9./895222-5"ХТ1ХМЕ**2-2.388310Е-6*ХТТМЕ**3- 50456952 

ς 32035. 5, 6) 0045722 
222T  -9,.189522z-5*XTIME*2-2.388310E-6*XTIMZ**2*3 20457222 


90457252 


2CUnVz-2.0052*«.8:264£z-3*XTIME-.22604E-5*XTIME**2-.27262£2-B* XTIME* *00457 570 


C 


60 
CC 


4010 


& 3-.115621E-1 1 *XTIME**4+REQ(10,9,16) 
DPDT=.81264E-3-.22604E-5*XTIME*2+.27262E-8*XTIME** 
& 2*3.0-.115621E-11*XTIME**3*4 
ENDIF 
το EO. ΠΠΤΠΕΝ 
QQ=1.0E8*DPDT 
Q=00*3.4134/60./60. 
CONTINUE 
О-О"ОСОЕЕТ-ОВ 


ELSE 


THIS USES A CURVE FIT THROUGH THE BURNRATE DATA GIVEN BY NRL 


QCORRT=0 .0 
QCORR=0 .0 
ITEST = 9 
BURNR1= 5 


& +.50945510E=06*xTIME Ps 
IEP (TIME С. РЕ 1100} ТВЕН 


BURNR- BURNR2 ж 1.3117-.013117*XTIME 
EDSE 


BURNR - BURNR2 
ENDIF 
LE (XTIME CLE. SOUT GO TO εὐ 
ΤΕ (BURNRZ .L7. BURNR1) THEN 
BURNR = (BURNR1 + BURNR2) / 2 
GO TO 60 


LE ( ΧΤΙΜΕ .:;. 60070) ο τοι. 
IF ιτεοῦ «ο, ο ΤΠΕΝ 
BURNR3 = BURNR2 


IDEST ты 
ENDIF 
BURNR = BURNR3 


ENDIF 


Q = BURNR*2.2046*9612./3600.-OR 
HIS G. VES О SN BIL SEC 


SNDIE 


Q»59.3:13*0.7295*XTIME-0.1139E-2*XTIME**2-0.3367E- 5*XTIME**3 


Q=0*3412/360C 
RETURN 
ZND 


.4576748 +0.18815346*XTIME=.20153996F-0 TIN 
ВОЕМЕ2- -1.3116787 » ,33158595%ХТІМЕ-.73429525- ОЗ ТЕ 


20457400 
50457500 
90457600 
90457700 
00457710 
00457800 
00457900 
00458000 
00458100 
00458200 
00458300 
00458400 
00458410 
00458420 
00458500 
00458600 
00458700 
00458800 
00458900 
00459000 
00459100 
00459200 
00459300 
90459400 
00459500 
00459600 
20459700 
00459800 
00459900 
00460000 
00460100 
00460200 
00460300 
00460400 
00460500 
00460600 
20460700 
00460800 
90460900 
00460910 
20460920 
00461000 
00461109 
292461259 
29461305 
20461405 


292461509 


22 — ی‎ Ú oÜ——— P — F. ————E —IoI_ q_TOIISKA nZ — UE  _ III... u uu u U uU. SS سس‎ 
WOWOW € € WOW WOW WOW XOWOWOW OX OW WOW€- Wo *X WOROE OX KORKO€E OW X €W WX WX RWXRE**wuxeuuxuaEREwwWY"aáarxuxwuwwuwa^O0AÁGlOUDQ 
` P мм 


SUBROUTINE RADHT (T4WALL, VEMXC) 


5046: 09 


FREER RRR RRR RR RRR E OK RK NK N KR KR NR N WW WR RW RF RF N RR RR RRR RR FR RR HK eRe RR KEE ENO AE | BOO 


COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 


&  ,NIP2,NJP2,NKP2,NA, NAP1, NAM1,NB,NBP2,NBMLI,KRUN, NCHIP,NJRA, NWRP 
COMMON/BLi6/ CONST:,CONST2,CONST3,CONST4,CONST6,NT, 70, H, GRT, BUO 


50461900 
50462000 


ν, 9946210050 


& CPO,PRT,CCND0,VISO,RHOO,HR,TR,TA,DTEMP, TWRITE, TTA2E, TMAX, GC, RAzZ3004622009 


COMMON/BL32/ 7(22,:6,32),R(22,16, 32) 291022 00601920 
& ,/С(22,:6,32),2(22,16,32),У/(22, (БОЗ ГІ 


204623009 
00462400 


COMMON/BL37/ У25(22,:6,32),СОМр(22,16,32) ,МОр(22,25,32), АЛА: (ЭТӘУО ЕЕ 


5 ‚СРМ (22, -6,32) ,н52 (3,2), МН5Ѕ2 (22,26 1821 КЕЗО ee 
COMMON/BL39/ALEW,PCURVE, CONSRA, PCURM1, PSOUTH, QCORR, PZRROR 


DIMENSION VIMXC (579,579), TAWALL (S78) 
SO 4010 K=3,NKM1 

20 4019 =2,\ 

и = К=з)” (М ре уеге; 


TAWALL(II)sCONSRA*T(I,NJRA,K) *T (I, NJRA, K) *T (I, NZJRA, X) "7 (2, NORA, X) 


CON DINGS 
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«0462600 
20462700 
50462800 
90462900 
594636250 
52524631095 
22463205 
20463300 
50463400 
20463505 
20463600 


C RADIATION FROM ΤΗΣ FIRE το THE WALL 522463700 
90463800 

рО 4012 2-3,9 00463900 
22-561-9-0 90464000 
ENI-OS25*-(T(l6,J,16)*T(17,J,16)*T(16,J, 17) *T(17, 2, 17)) 90464100 
T4WALL (22) =CONSRA*AVT*AVT*AVT*AVT 00464200 

4011 CONTINUE 00464300 
E 00464400 
DO 4012 223,14 00464500 
22-568-2-3 00464600 

ШЕ 237 (Т(6,2,16)-Т(7,,/7,16)“Т(6,.7,17)“Т(7,2,17)) 00464700 
T4WALL(JJ)=CONSRA*AVT*AVT*AVT*AVT 00464800 

4012 CONTINUE 00464900 
c 00465000 
DO 4020 i-2i,579 00465100 

RWALL (I) =0.0 00465200 

DO 4020 G=1,579 00465300 

RWALL (i) =RWALL (1) +VFMXC (I,J) *T4WALL (J) 00465400 

4020 CONTINUE 00465500 
RETURN 00465600 

END 00465700 
00465800 

00465900 

00466000 

© C0466100 
wee WOW€ EON WOW WOW WOW€ WOW WOW OW OW WOW WOW WOW O£ WOW AK OW OROW WOW XO ROO WX NON XR RRRRERE*xx**xzuxu&xuxxx****-w5« 00466200 
SUBROUTINE GLOBE 20466300 

“жж Шала д МАМ АУМА ААА АЛА АЛААААЛА ААА ААА АААААА ААА ДА алада да / ς {ς ή ϱΏ ο 
* THIS SUBROUTINE CALCULATES THE GLOBAL PRESSURE CORRECTION, "00466500 
* WHEREBY THE PRESSURE MATRIX IS UPDATED. "00466600 
τ VARIABLES USED ARE: "00466700 
$ SUMT = SUM OF TEMPERATURES *00466800 
В SUMPT = SUM OF PRESSURE OVER TEMPERATURE "00466900 
х SUMPET = SUM OF EQUILIBRIUM PRESSURE OVER TEMP*00467000 
* JGRT Ξ CONSTANT *00467100 
А PCORR = PRESSURE CORRECTION "00467200 
ΑΑΑΑΛΑΑΛΑΛΑΑΑΗΑΑΑππΑἈπΑΑΑΑΝΆΑἨἨἨἩΑΑἈἈΛἨἨΠΑΛΙΑΑΑΛΗΑΑἈΑΛΑΑΠἈΑΠΠἨΠΜἨΠΑΛΑΑΑΑἈἀπΑἈΠπαΑἨπ . (0467300 
ESUJIMON/SLI/NI,NIPI,NIMI,NJ,NJPI,NJMIl,NK,NKP31,NKMl 00467400 

= ,NIP2,N\oP2,NKP2,NA, NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 20467500 
COMMON/8-.6/ CONST1,CONST2,CONST3,CONST4, CONST6,NT, UO, H, UGRT, BUOY,00467600 

& | CPO,PRZ,CCNDO,VISO,RHOO,HR, TR, TA, DTEMP, TWRITE, 7Z7CAPE, TMAX, GC, RAIRO0467700 
ENSMON/2.32/ T(22,16,32),R(22,16,32),P (22,16, 32) 00467800 

& ο το ο (22,16,32 Vv (22,.16,392), Ni 22,26, 32) 00467900 
EDUMON/3.34/ HZIGHT(22,16,32),REQ(22,16,32), 90468000 

& 211222116532) SMPP.22, 16,32) , PP(22, 16,32), 29468100C 

& ЕЕС .6, 392) ,0V (22,16, 32),DW(22, 16,32) 90468200 
SerMON/Si3/7/ V.S(22,_6,32),COND(22, 16,32) , NOD (22, 26, 32) , RWALL (279) 004683CC 

š ο ο ο. ποσο 2) NHSZ (22,16,32) ,RESORM(93) 20468400 
90468500 

SUMT=C. 50468600 
SUMPT=C. 20468700 
SUMPET=c. 00468800 

ο 370 :22,NI 00468900 
ТОЗСО 2-2,Х2 50469000 
29.370 K=2, NK 20469100 

ЕЕ (МОО (2,2, КУ. ЕО. 1) GOTO 376 20469200 
Γι ς 0,0, θ) 00469300 
EXSJZYL(I,2,X,0,09,0) 50469400 
ШІК-ЛІТ(2,2,5,9,0,0) 20469500 
ESL-DX.*DYV.*D2K 20469600 
бОМТе5М7-1./Т(Т,2,К) *VOL 20469700 
SUMPT=SUMPT+P (1,J,K)/T (2,3, %) *VOL 50469800 

K  —SUMBDET+TREQ(I1,-,K)*(`./1.9-1./T(1,3j2,K))*VOL 00469900 

πο CONTIN | 29470000 
SUMPET=SUMPET/UGRT 529470100 
PCORR=(SUMPET-SUMPT) /SUMT 70470200 
2CORRN=2CORR 50476300 
50470405 
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371 


- 
x 


NNN 


¿05 
252 


25371 ο ο Ε" 

JUI ME = NIEL 

20037 984—1,NKPI 

2 (ir, ο πρι ιν SITPCOREN 
COTES 

RETURN 

END 


SUBROU--NE SOLCON 


00470500 
20475655 
25470755 
99470800 
59470920 
25472525 
90471295 
20471200 
00471320 
20471400 
50471555 


09471600 


RRR mm с _ шшш ιο --υ-ἥ- BR P UU 
XO£ OW € OXON € WWW WOW WOO WO WOO OON NORONRUN RON OX Xu uuuuu**ys*x**00471720 


00471800 


шама МАААМАУАМАЯ АА АААЯАА ААА ААА ДАЛАДА ДАЛАДА 0 O 4 7, OC O0 
m 


& 


& 


& 


& 


& 


& 
& 


COMMON/3Z7/NI,NIP1,NIMI,NJ,NJP1,NJM1,NK,NKP]1,NKM1 


‚1Р2, ХЈРр2, МКР2, МА, МАР1, МАМІ, МВ, МВР1, МВМ1, ККОМ, МСНІР, МЈКА, МИКР 
COMMON/3_12/ NWRITE,NTAPE,NTMAXO, NTREAL, TIME, SORSUM, ITER 


00472000 
590472155 
00472200 


COMMON/3L16/ CONST1,CONST2,CONST3,CONST4,CONST6,NT, UO, HB, UGRT, BUOY, CO4 72am 
CP0,2RT, CONDO, VISO, RHOO, HR, TR, TA, DTEMP, TWRITE, TTAPE, TMAX, GC, RAIROO04 72400 


COMMON/3.22/ICHPB(1C) ,NCHPI (10) , JCHPB(10) , NCHPJ (10) δα io 
NCHPK (10) , TCHP(10),CPS (10) , CONS (10) , WFAN (10) 


00472509 
90472600 


COMMON/3L37/ V1S(22,16,32), COND (22,16,32) ,NOD(22,16,32) , RHALL (579) 005720 STS 


,«PM(22,16,32),HS2(3, 2) , NHS21227 16, 32) RESORT 


55 402 Х=1,МСНІР 

τος (ο) 

-Em=[IB-üNCZEPI (N) > i 

2-12 (А) 

25-28-Х25Р/(М)-1 

κιτς το ο (N) 

ΚΞΞΕΒ ΡΕΞ; 

DO 405 l.-iB,IE-i 

20 405 -JB,JE-I 

DO 405 X-KB,KE-i 

COND (2, 2, X) CONDO *CONS (N) 

cou (il, ΞΕΡΟ 

SESS rx EE 

ТЕ (..z22.NJ) COND(I,NZPI,K)SCONDIOTANTO ES 

ses (1.22.2)  COND(1,- X) CONDI(O SES 

і2 (1.22.Х1) CONDINIPI,JVR)SOCONDUNIO SES 

es (l.z22.2.AND.2.EQ.NJ) СӨ Т” 
22 (2.24.5..АХ2.2.50.М9) COND (NIB OT ЕП АУ 
-2 (2,22.52) <ӘУ(Т,ХОРІ, КҮНСЕГ ТЕН 

22 12.52.2) <5М(1,2,/5)-СРМ И 

2: (2-52.5:) οςΜ(ΝΙΡ ο το πη 

-- (-.54.4.АХ5.ш2.Е ОХ) ΡΜ ο ο a 
-2 (2.24.Х2.АМ2.2.5 ХӘ) ЕРМІГЕР 2: ОРИГ 
New a mee Lm 


«ο το» 
що 


=ND 


πιο `` NE P2RAGR 


00472800 
50472900 
55473022 
25473252 
79473200 
00473300 
59473450 
004 735550 
50473600 
20473700 
90473800 
90473900 
59474505 
09474155 
55474255 
564724355 
00474400 
55474555 
20474655 
20474772 
25278952 
20472955 
270475999 
vut lc ME 
29241227. 
29412148 
22475455 
204755252 
20475650 
29475722 
20475852 


204729225 


π.μ, ὃ ὃ ὃ ὃ ا ص‎ υ-- ιο, ου gp I = ww ras 
FETTER AAA RT ERR x... ............ 004 76000 


ы м м 


20476222 


ғғ” = m ` 
www... x... . . . . .. .. x... . E WN KW KW E KW RW WE RE RE KR RE RK RE KR WR WW KK RR WR Ew WR RR Rw Kw wO GZ 


COMMON 7/214 /RCOEF , TINF, CNT, ABTURB , ΡΒΤΟΒΕΒ ΝΤΘΡ ΝΙΛ ΑΧ... 


2М205476355 


SOMMON/2—-67 CONSTl,CONST2, CONST3,CONST4, CONST6, N7, 20, 3, 7GRT, BUCY, 204 #6457 
c20,7232-,CONDC,V:SO,RHOC,HR, TR, TA, OTEMP, TWRITE, TTAPE, -MAX, Gc, RA_ Roca Gage 


COMMON/2-32/ 7(22, 2.6, 32), Riza, 16,2), © ee , 


,2(22,:6,32),2(22,16,32),У(22/ буаз - 


CeMMON/2.34/ HEIGHT (22,16, 32), Reel С Op 
SMP (22, 26,32) ,SMPP (22,26, 320 a ГІ 
2-(22,:6,32),0V(22, 265,32) , DW(Z 20600920 


СОММ0Х/3239/АЬҺ5М4,РСОВУЕ,СОМОКА,РСЦЕМІ,РБООТИ ОСО 0 
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292476625 
20476725 
20476855 
22476922 
20477222 
994112522 


99907268 


CC ** THE FOLLOWING PRESSURE TEST IS A TEMPORARY MEASURE TO MODIFY THE 00477300 


Ec HEAT INPUT ТО FORCE TEE CALCULATED PRESSURE TO AGRazz WITH TEE 00477400 
ος EXPERIMENTAL PRESSURE. IT WILL BE USED UNTIL ACCURATE HEAT INPUT 00477500 
mee~* 1S ВЕСЕ УЕР. 00477600 
ЕС 00477700 
Р5ООТН-Р(10,9,16) «СОМ5Т1%ЕЕ0(10,9,16) 00477800 
PERROR= (PCURVE-PSOUTH) /PCURVE 00477900 
QCORR=i .0+PERROR- (PSOUTH-PM1) /PCURVE 00478000 
QCORR2i.0-PERROR- (P SOUTH-PM1) /PCURVE-* (PSOUTH-?M1) / (PCURVE-PCURM1) *00478100 

& (PCURVE-PM1)/PCURVE 50478200 
QCORRT=CCORRT *QCORR 00478300 
PCURM1=°CURVE 00478400 

PM1=P SOUTH 00478500 

C 00478600 
RETURN 00478700 

END 00478800 
00478900 

00479000 

00479100 

C 00479200 
ww. www... x... x... ........ ...... E KE OF OK KK KE E E RNR KRN x... ........ x xX x *۴۳ O 0479300 
SUBROUTINE TCP 00479400 

nee KEKE KE ETRE ETRE ETEK EERE EKER EKER EKER eR E KERR KEKE KEKE KKK OO 479500 
xww ** 00479600 
x «ж WORORONON WO X (NON NON OGNUNO OXON OONOUON OON OU ORC UU XXX XX E X XX x x xu xu xuwuxxx**00479700 
К THIS SUBROUTINE CALCULATES THE TEMPERATURE AT THE TERMOCOUPLE «00479800 
BENE IIS. «00479900 
ккк КККК КККК КККК КККК «xx uxax*12*00480000 
СОММОМ/КА/ХС (93), ҮС (93), 2С (93), Х5 (93), Ү5 (93), 25 (93), 00480100 

å DxxXC (93 50DyYC (93) ,DZ2C (93)  DxAKS(93) ,DYYS(93),D22S193) 00480200 


COMMON/BL16/ CONST1,CONST2, CONST3,CONST4, CONST6,N7, 50,H, UGRT, BUOY, 00480300 
& | CPO,PRT,CONDO,VISO,RHOO,HR, TR, TA, DTEMP, TWRITE, 77APE, TMAX, GC, RAIRO0480400 


СОММОМ/3132/ 1221632) R (22;,16,32), 22 16,932] 00480500 

& ΙΙ 16 2) 07122, 16, 32), У (22, 16,32),0/1(22,:6,32) 00480600 

COMMON/3L38/NTHCO,CX(12),CY (12) ,C2(12) , NTR(12,3) , COUP (12) 00480700 

00480800 

90480900 

DO 5100 N=i,NTIHCO 00481000 

ΣΙΞΝΤΗ(Ν, 1) 00481100 

JJ=NTH(N, 2) 00481200 

KK=NTH(N, 3) 00481300 

VOL=ABS ( (XC titl)—XCC(II)) * (YC (JJ+1) -YC (JS) ) * (ZC (KK-1) =Z2C (KK) ) ) 00481400 

TCOUP (N) =0. 00481500 

EO 5101 --τιϊ, ἵΤεῖ 00481600 
aS: —T 

Î 00481 700 

00 50 K s ا‎ t қ 00481800 

о2о x ο0481900 

ШІ 510. Х-КХ,ККк,1 20482060 

KXKZ2KK-XXT1-5 C0482100 

AVOL-ABS ( (XC (1) -CX (N) ) * (YC (7) -CY (N) ) * (2C (K) -CZ (N) )) /VOL 90482200 

TCOUP (N) =TCOUP(N) +WVOL*T (III, JJJ, KKK) 00482300 

ο οντΙνς 00482400 

TCOUP (N)=TCOUP (N) *TR-273.18 00482500 

= E 

E. 00482800 

aa 00482900 

; 00483000 

00483100 

00483200 

P 00483300 

|. K WC K X X N XX YW OK 7 ΟΡΟ 

| T ИИО tr smi eme 0483500 

SUBROUTINE OUT (NN) 00483600 

wx ENDS TT Tees ees sews es #22 00483700 

COMMON/3L./DX,DY,D2, VOL, DTIME, VOLDT, THOT, TCOCL, ?:,C, QR 00483800 

COMMON/S-7/NI,NIPi,NIMI,NJ,NJP1,NJM1,NK,NKP]1, NKM1 00483900 


&  ,NIP2,NJP2, NKP2, NA, NAP1,NAMI,NB,NBP1,NB8M1,XRUN,NCZiP,NJRA,NWRP 00484000 
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O 


0000 


cy (y O O 


C 


COMMON/BL12/ NWRITE,*S 


COMMON/BL16/ CONSTI, 


CAPE, NTMAXO, NTREAL, TIME, SORSUM, I TER 
COMMON/BL14/HCOEF, TINE, CNT, ABTURB, BTURB, VISL, VISMAX, QCORRT, PM1, PM200484200 


CONST2, CONST3, CONST4, CONST6, NT 


00484100 


,J0,H, UGRT, BUOY, 00484300 


6 CPO,PRT,CONDO,VISO,RHOO, AR, TR, TA, DTEMP, TWRITE, TTAPE, TMAX, GC, RAIROO484400 
COMMON/BL32/ T(22,16,32),R(22, 16,32), 2 (22, ope 


,C (22,16, 32) (22 


& 16,32) ιο δι 
COMMON/BL34/ НЕІСНТ (22,16,32), КЕО (22,16,32); 


(1 (22,16,32) 


& SMP (22, 16, 32) ,SMPP (22, 16, 32) BP (22 б nD 
& DU (22,16, 32) ,DV(22, 16, 32) /DW(227 TT 
COMMON/BL36/AP (22,16,32),AE(22,16,32) ,AW(22,16,32),AN(22, 16,32), 
& А5 (22,16,32), АЕ (22,16,32) 26 (22600782 
& SP (22, 16,32), SU (22, 16,321, RI (2 GE 


COMMON/BL37/ VIS(22,26, 32), COND(22, 16, 32) 
& ССРИ 7 16,32) 
COMMON/BL38 /NTHCO,CX(12),CY(12) ,C2 (12) ,NTR(12,3) 


4521272) 


, NHSZ (22, 16; 32) 


|, ICOUP (12) 


COMMON/BL39/ALEW, PCURVE, CONSRA, PCURM1, PSOUTH, QCORR, PERROR 


XTIME-TIME*H/UO 
nnn=jnint (xtime) 
nnx=nnn+l 

IF( NN .EQ. 


1) THEN 


ORR=60.*60./3.412/1000. 


*OR 


WRITE(6,500) XTIME, НТВБАҺУТІМЕ ПЕН ыы 
, 1X,’ NTREAL=’ ,i9, 1X, 


500 FORMAT(1X, 'TIME-' 


δα 1 


& "MIMES τη ο ερ ο ο ο ιτ. 
& F9.6,1X,’SORSUM=’,59.6,1X,’ QOR(KW) = ’,F10.4) 
ОКИ = ((60.*60.)/(3.412*1000.))* 0 
PRINT 3 
PRINT *, ’΄ PCURVE PSOUTH PERROR 
&CRR QCORRT Q(KW) ' 
PRINT *, PCURVE, PSOUTH, PERROR, QCORR, QCORRT, QKW 
PRINT * 
ELSE E NN .EQ. 2 ) THEN 
PRINT 
эк“ TEMPERATURES AT THERMOCOUPLE POSITION IN (C)’ 
WRITE (6,*)üW(TCOUP (N εἰπε 
PRINT * 
PRINT * 
ELSE 
write(nnz,"*)' cime=',xtime,’ seconds’ 
write(nnn,*)' nodes u ν w’ 
Write(onx,*)’ <ітес” (_xctime,” seconds” 
write(nnx,*)'  noaes temperature pressure’ 
ο ο. = TKO! 
«T 
20 502 MET NID! 
т=М 
ΝΒΙΤΕ(6, 504) I,K 
504 ЕОВМАТ(/,2Х,”1=',12,5Х,'К=”,12,/,1О0Х, © NOD Т Ы 
& 'U(CM/SEC)',2X, ο το. ΖΧ, 'W(CM/SEC)','P (ATM)', SX,  SMP* 
& ' VIS (SEC/CM-CM) ' , 3X, ' COND(SEC/CM-CM) * , ' ASME , /) 


513 ιο ο хорі 


ХТЕМР-Т7(:,2,5) /СОМ513-273.:6 


ЖШЕМР-ТІ 275) 

AR=R( 1, co, 5) *RS00/ 2.2 
XR=R (1,2, <) 

AU=U (i, 2, X) *CONSTE6 
XVzV(I,-,X) *CONST6 
2а” W(I,-,X)*CONST6 


48 *`CO 


0. * (0.0328) 252 


=(P (ly, 5) "CONST! =x20 te , KX) PT NIS 


ae БИ con 
ХО-09(2,2,5) 
ХУ-У(:2,2,5) 
ХИ-И(І,2,5-1) 


ХУІЗ-УІ5(:,25, ΗΠΟΙ ου ο, 


‚48814 
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,2Х, 
e 9X, 


00484500 
00484600 
00484700 
00484800 
00484900 
00484910 
00484920 
00484930 


,NOD (22, 16,32) , RHALL (579) 00485000 
, RESORM(93) 


00485100 
00485200 
00485300 
00485400 


00485500 
00485600 
00485610 
00485700 
00485800 
00485900 
00486000 
00486100 
00486200 
00486300 


Q00486400 


00486500 
00486600 
00486700 
00486800 
00486900 
00487000 
00487100 
00487200 
00487300 
00487400 
00487500 
00487600 


00487800 
00487900 
00488000 
00488100 
00488200 
00488300 
00488400 
00488500 
00488600 
00488700 
00488800 
00488900 
20489000 
00489100 
00489200 
50489300 
50489400 
90489500 
00489600 
00489700 
00489800 
00489900 


©) 


о 


255 


556 
03 
502 


ACOND=COND (I, 0, K) *RHOO*CPO*H*U0*1 .48814 
XVISSVIS(I,J,K)/VISO 
XCONDZCOND(I,J,K)/VISO 

XSMP=R= (I,J,K) 

22YYz../FLOAT(NJM1-2) 

EL OR (UIS UK)**2sV(I,J,R)**2*W(I, J, K) **2) *DDYY/COND (I, , K) 
Were (nnn, 250) 1, j,k, XU, XV; XW 

Bormac (’node(’,3i3,’)’,3el2.4) 

write (nnx,556) i, j,k, xtemp, xp 
Mexma-í('node(',3i3,')',2(2x,e12.4)) 
ESNTINLZE 

CONTINUE 


WRITE (6,*) ‘THE TIME WHEN THE DATA WAS STORED ON DISK IS:', 


SEXTIME 


close (nnn) 
close (nnx) 
ZNDIF 
AETURN 
ZND 
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20490000 
20490109 
20490200 
29490300 
00490400 
50490500 
20490600 


20490900 
20491000 


20487700 
20491100 
20491200 
00491300 
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